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; 1 1 

3 § ¢ MODULE MOUVOL (LANGUAGE (8h. 1S8 58) ’ 

3 t JDENT = 'v04- 

: 5 5 1 BEGIN 

: ? 009 } i eeeeeeeeeeeeeeeeeeeereneeeenereretererereteeereeteeeeeneeeeeeeeeeeeeeeeeeeee 

. 'e ® 

3 a 9 1 !@ COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 

4 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 

3 V pt : Wy ALL RIGHTS RESERVED. * 

o ° ® 

3 ig ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

ee | 14 1! ONLY IN ACCORDANCE WITH T F SUCH LICENSE AND WITH THE * 

s 95 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 1 p18 1 !* COPIES OF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

‘i. % 17 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: + Bote : Ww TRANSFERRED. * 

€ 7 ® 

3 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 ¢ 4 ; ! 7 CORPORATION. ® 

o . * 

: 4 38 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 H 4 é : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

J . *® 
' 

: : 0098 : DATEL EC A OE NS RETR AIOE oT IES 

: 1 

; 0 $080 1 !+4 

3 1 ith 1! 

3 ¢ 00 ; 1! FACILITY: MTAACP 

3 B38 1! 

s 4 034 1 ! ABSTRACT: 

3 5 0035 1! This module mounts a volume 

3 6 B238 1! 

ea 0037 1! 

3 $ 0038 1 ! ENVIRONMENT: 

; 9 it 1! 

; 40 040 1! VMS operating system, including privileged system services 

: «641 0041 1! and internal exec routines. 

3 $§ ek 1! 

3; 6 0045 1 !-- 

3; (46 ope 1 

; | (45 045 1! 

; 46 rk 1! 

3 rth be ' : AUTHOR: D. H. GILLESPIE, CREATION DATE: 24-AUG-1977 

: 49 ‘3 ' MODIFIED BY: 

; 24 51 1: v03-013 HHO04i Hai Huang 24-Jul-1984 

3 38 26 ! Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B32'. 

: 54 54 1 v03-012 MMD0288 Neg Dumont 10-Apr-1984 14:14 

.. 55 1! Fix to the return from SMTACCESS code where ACCESS could 

5 29 2$ 1! be set to normal processing before all the error conditions 

: 5 wa where checked. 


z 
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LMPO0221 ark Pilant, 28-Mar-1984 14:45 
ons 30° PRO pegs _ownuic™ to ORBSL_OWNER and UCBSW_VPROT to 


D0271 neg Dumont 23-Mar-1984 9:34 
Chan e the processing of the o access tpt ity character fields 
e VOL1 Label to call the installation 
apec ite accessibility routine. The return from this 
routine determines the users access to the volume. 


MMD0185 Meg Dum 6-Jul-1983 18:32 
Make the default for AVLZAVR the same from the DCL call 
and from the system service call. 


MMD0176 Meg Dumont, 26-May-1983 15:11 
Fix to support new input to IOCSCVT_DEVNAM 


MMDO174 eg 0 9-May-1983 15:16 
Fix to make I0_STATUS “Ganatonentty defined within module 


MMD0164 Meg Dumont 26-Apr-1983 9:43 
Change the references to 86 to be the symbol ANSI _LBLSZ. Change 
the reference to 240 to be the symbol SCRATCH_OFFSET. 


MMDO Meg Dumont, 12-Apr-1983 17:24 

Added’: support for writng and interrupting the wou 

OWNER IDENTIFIER field, so that it is no Longe 

treated as a VMS field, strictly. Bugfix to he AVL, AVR 
code where MOUNT/INIT would not work under all circumstances. 


MMD0120 nog, bu 29-Mar-1983 0:44 
Added support for the vole label inside the MTAACP 


MMD0103 Meg Dumont, 17-Feb-1983 13:14 

Use GET_DEV_NAME to get the Ss units device name. Added 
the routine GET_DEV_NAME to call the system routine 
locscvt _DEVNAM fo get the tape units name. Added the code 

7 automatic volume recognition and Labeling (AVR and 


mpoode Meg Dumont, Rt at be 15:43 

Allow user with read access mount the 
writelocked. Add modifier iosh tLRe REXCP™ to all g10° : ” tnaued 
by the MTAACP, necessary for the MSCP tape drives. 


mMD0001 Meg Dumont 23-Mar-1982 10:16 

Added a check for member UIC match when mounting a volume. 
DMWw00071 David Michael Walp 21-Jan-1981 

Handle Volume Invalid during verification 

DMWO00059 David Michael Walp 7-Dec-1981 

Moved Rename TRANSLATION_TABLE to ANSI_A_BAD, “ANSI ~A_GOOD 
DMwW00036 David Michael Walp 17-Sep-1981 
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Add HDR3 processing 


LIBRARY ‘SYSSLIBRARY:L1B.L32'; 

REQUIRE ‘SRCS$:MTADEF .B32'; 

REQUIRE *LIBDS$:CVMSLIB.OBJJINITMSG.B32'; 
LINKAGE 


14-Sep-1 6:44 MTAACP.SRCJMOUVOL .B32; (1) 

i } } Correct error messages given ( MOUNT, REMOUNT switched ) 
i$ 1 i v02-012 DMWw00030 David Michael Walp 18-Aug-1981 

13 : } Volume Access and ANSI ‘a‘ character in Volume Names 

i v02=011 DMw00017 David Michael Walp 20-May-1981 

1 : Copy the new fields ( File-Set-Id and Vol_Acc ) then 

§ creating New MVL. 

4 i v02=010 pmw00014 David Michael wal 14-Mar-1981 

5 Changed the calculation of the CCB address to GET_CCB 

? V02-009 REFORMAT Maria del C. Nasr 30-Jun-1980 

9 A00G8  MCN0003 Maria del C. Nasr 15-Oct-1979 9:23 
1 i 

; ! 
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LSCHOOSE_UNIT = JSB : GLOBAL (CURRENT_VCB = 11) 
USED (2, 3,4, 5, 6, 7. 8, 9, 10), 
MVL_UCB = CALL : GLOBAL (MVL_ENfRY = 9, UcB/LIST = 10, 
06 CURRENT_VCB = 11); 


FORWARD ROUTINE 


oa o BRI eS aesS 
Se eee SSS SSN ares Se rs s 


gee! ASSUME _MOUNTED : NOVALUE MVL_UCB, sooune correct volume is 
mounte 
66 CLPREV_MAKECUR : NOVALUE MVL_UCB, ! clear prev use of volume and 
0664 ! make it current 
bee? CHECK_ACCESS : MVL_UCB, eaeet the access rights to a 
. a e 
$e CHECK_RING : COMMON _CALL ; check for the write ring 
668 CHOOSE _UNIT : LSCHOOSE UNIT i choose unit for mount 
v¢ 34 OWIT : NOVALUE AVL_UCB, ' clear Last mounted volume 
70 CREATE LABEL : COMMON_CALL? ! create a label for the volume 
71 DED : COMMON-CALL NOVALUE, ! given the UCB addr get dev nam 
7 MAKE_CUR_VOL : NOVALUE MVL_UCB, ! make volume current 
7 MAKE _VOL_ENTRY : COMMON CALL, ! make volume entry in MVL 
a OPERATOR—LBL : MVL_UCB, } record operator supplied 
. a e 
f SET_MVL_OVERIDE : NOVALUE MVL_UCB; ! set the MVL overide bit 
7 EXTERNAL 
7 CURRENT_UCB : REF BBLOCK, ! address of current unit control block 
0 CURRENT WCB : REF BBLOCK, ! address of current wC 
1 10_CHANREL, ' acp io channel 
6 § 10° STATUS : VECTOR (2), ! status of io 
MATL_CHANNEL, 
6 WORK"AREA; 
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=$ 746:44 MTAACPS SRCJMOUVOL. B30; 


; 17 6 $ 1 EXTERNAL ROUTINE ‘ 
. ae 6 1 ! block gctiy’ on current volume set ‘ 
; 174 6 5 1 CHECK. PROT, heck VMS protection rights ; 
; 175 1 ENABLE MAIL AST : COMMON_CALL, ° 
3 178 690 1 GET_CCB, ! get the address of the CCB : 
; V7 691 1 i get epenene fy its UCB : 
; i738 $36 1 RECORD, i get ord t eis cuccently reading : 
; 179 935 (1 Seestus DEVNAM : LSIOC_CVT_DEVNAM AbDRESS ING onODE. ABSOLUTE) ° ’ 
; 180 694 1 PRINT_OPR_MSG : LSPRINT_OPR_MSG, 

; «181 695 1 PRINT _NOT_ LABEL : JSB, ! print not correct label 

: 18 636 1 PROCESS vor? TABEL, ' interpret the contents of vOL2 

s 697 1 READ BLOC : COMMON_CAL read mag tape b 

3 : : a4 : eeu Ne MALT COMMON-CALL, ! rewind volume a wait for completion 

: 138 00 (1 $FAO ADDRESSING_MODE (ABSOLUTE), ! format ascii output 

; 18 149 1 $010W : ADDRESSING-MODE (ABSOLUTE), | queue I/O and wait 

; «4188 rs 1 SYSSSETIMR ADDRESSING_MODE pets ty ' set time request 

; «189 07035 1 SYSSWAITFR : ADDRESSING_ MODE (ABSOLUTE), i wait for event 

; 190 4 1 TAPE_OWN_PROT, ' determine the owner and 

: 191 705 1 ! protection of a tape 

; 13¢ fai) 1 TERMINATE_VOL; i terminate mount request 

: 194 $708 i BIND 

; 195 $709 1 MAIL _ = WORK_AREA__: BBLOCK CMSGSIZE), 

; 196 0710 1 MAILSZ = MAIL + MSGSIZE 

: 197 Orit 1 STARID = UPLIT (*DECFILE11A"); 

Blo 

; 200 Mar 1 TAPE a ae 

: 201 715 1 TAPE PROT : BITVECTOR 16]. 

: 20 716 1 LABEC_SPEC : BITVECTOR 1}. ! set if oper specified label 

; 20 0717 1 INFORM. OPER : BITVECTOR (1 i set if oper should know that 

3 Be arts ! @ Ro Sone | happen without their 

; oe 143! ' CVT_DEVNAM : VECTOR CMAX_DEVNAM_ LENGTH BES te Converted device 

; 208 0722 1 CVT_DEVNAM_LENGTH =: BYTE; ! Length of “device name 
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GLOBAL ROUTINE MOUNT_VOL (VOL, FLAGS) : COMMON_CALL = 


'e¢ 
' 


; FUNCTIONAL DESCRIPTION: 


if REWRITE THIS DESCRIPTION 

This routine mounts the specified relative volume. If it is 

already mounted and the rewind flag is set then the volume will be 
rewound and the VOL1 Label rechecked. If the volume is not mounted, 

a request is issued to the operator, the process blocks until the oper 
replies that the volume has been mounted. Then if the label flag 

is set, the VOL’ label is checked against the one entered at the 
original mount time or one entered by the operator when indicating 

that the volume was mounted. 


CALLING SEQUENCE: 
MOUNT_VOL(ARG1,ARG2) 


< 
g 


WR" OC OCONAUSWN—OODONOULSUN OO 
Dt it Se fe te tet te i Se Stn te te ee de | 


Re ee Na a ads atte pap 
“ 


~“ 


INPUT PARAMETERS: 
ARG1 = relative volume 
ARG2 - flags 


number to mount 


AACS MMAVIMNAYVIVIVIVIUT ES BESS LLL 
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Sar 


_REWIN = request rewind of volume 
MOUSV_LBLCHECK = request check of Label 
MOUSV_CHKIFSPC = check the Label only if the operator supplied 
MOUSV_MOUNTERR = error on Last mount, so force mount 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
volume is mounted and set current 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


Oe ee ee ee ee te 


BEGIN 

BIND , 
SECONDS = UPLIT (-10000000, -1); ! one second in 100 nsec units 

P 

FLAGS : BBLOCK; 

GLOBAL REGISTER 
MVL_ENTRY = 9 REF BBLOCK , : addr of MYL = for current vol 
UCB_LIST = 10 =: REF VECTOR; ! addr of List of UCB's for vol set 
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p-1984 MTAA MOUVOL .B32;1 (2) 
67 EXTERNAL REGISTER 
os COMMON_REG; 
0 LOCAL 
71 MVL : REF BBLOCK; ! address of MVL control block 


' get the MVL and see if we need to increase its size. This means that 

! 1f we have more volumes in the set then originally specified then we 

! must create more MVL enties for those volumes. Each volume in a volume 
' set has its own MVL for the duration of the mount of that volume set. 


MVL = .CURRENT VCBCVCBSL_MVLI; 
IF .MVLCMVL$B_AVOLSJ LSS~.VOL 


N 
MVL = KERNEL_CALL(MAKE_VOL_ENTRY, .VOL, .MVL); 
! point at the current MVL Label 
MVL_LENTRY = .MVL + MVLSK_FIXLEN + ((.VOL = 1) *MVLSK_LENGTH); 


if volume mounted then make the volume and the unit it is mounted on 
current. Else if the MTAACP is Ag in Automatic mode then all 

we need to do is get the next free drive. We must assume that if 

the drive has a vaild reel on it then it is the next reel the 

operator wishes us to use. If we are not running in Automatic mode this 
is not true and we must choose a unit, clear its previous use, and 
make the volume and the new unit current. 


UCB_LIST = BBLOCKC.CURRENT VCBCVCBSL_RVTI], RVT$L_UCBLST); 


0-0 


IF <MVL_ENTRYCMVL$V_MOUNTED] AND NOT .FLAGSCMOUSV_MOUNTERR] 
WEN KERNEL_CALL(MARE_CUR_VOL, .MVL_ENTRYCMVL$B_RONJ, .VOL) 


E 
BEGIN 


! If we are newiee in Automatic mode then we want to unload the 

' Last volume so that the operator can put the next reel on the drive. 
' However we also want to special case the fact that the user 

! may have only one drive and thus force the operator to intervene. 


IF NOT .CURRENT_VCBCVCB$V_NOAUTO) 
penn? (-BBLOCK™C. CURRENT_VCBEVCBSL_RVTI, RVISB_NVOLS] GTR 1) 


m 
~~ 


SBLFSARAN—S SH 


EGIN 
KERNEL_CALL{CLEAR_UNIT); 
KERNEL_CALL(MAKE_CUR_VOL, CHOOSE_UNIT(), .VOL); 


END 
ELSE KERNEL_CALL(CLPREV_MAKECUR, CHOOSE_UNIT(), .VOL); 


END; 
! now if the volume is mounted and no rewind is required just return 


If .MVL_ENTRYCMVL$V_MOUNTED] 
AND ROT .FLAGSCMOUSV_MOUNTERR) 
AND NOT -:FLAGSCMOUSV~REWINDJ 

THEN RETURN .MVLENTRY; 
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; 4 7 ! Assume that we won't send a message to the operators console. We would ; 
: 5 ! want to sent one if we switched to a new ree ¥ a volume set without ‘ 
; § ! the operator getting involved in anyway. That is automatic volume ; 
; 4 ! recognition is turned on and no errors orryrse while mounting the ‘ 
3 t ! next volume. Also assume that no label will be specified. ‘ 
; 0 rk} INFORM_OPER 93 = FALSE; : 
; 1 rf: LABEL_SPEC (OJ = FALSE; : 
; § ‘8 ' Call to get the device name and length of the name. These fields are ‘ 
; 4 4 ! stored in fields accessible to other routines in this module so that ‘ 
3 5 ste ! only one call need be done. ; 
; 4 390 GET_DEV_NAME (CVT_DEVNAM_LENGTH, CVT_DEVNAM); : 
3 9 beg ! When the grecep is running in Automtic mode, before asking the : 
; 340 Bae ! operator for the tape and Label try to generate the label with ; 
; 341 854 : in the ACP. And try to mount the volume on the given unit with : 
; : Bees ! that Label. : 
> 344 0857 IF NOT .CURRENT_VCBCVCBS$V_NOAUTOJ : 
. 45 0858 THEN ° 
; 346 0859 BEGIN : 
; 47 0860 4 IF KERNEL_CALL(CREATE_LABEL, .VOL, .MVL) ; 
> 348 0861 3 THEN : 
; 349 O86e 4 BEGIN ; 
3. 3% 0864 4 ! Default the following fields : 
3 2§ 0865 4 yt SPEC : We have a label for the next volume to mount. ; 
7 oe 0866 4 ! INFORM_OPER : If this mount works inform the operator that : 
; 2 Baek : : we have mounted a volume ‘behind his back’’. : 
3 326 0869 4 LABEL SPEC [0] = TRUE; : 
; 337 0870 4 INFORM_OPER CO) = TRUE; : 
3 SOP Berg 4 ! If there is only one drive in this volume set then must give : 
; : Obi : ! the operator some time to put the tape on the drive. ; 
3 $¢ 0875 4 IF .BBLOCK C.CURRENT_VCBCVCBSL_RVTJ, RVTS$B_NVOLS] GTR 1 : 
: 6 pars 4 THEN ‘ 
; 364 0877 5 EGIN : 
: 65 0878 : KERNEL_CALL (ASSUME _MOUNTED); : 
; 366 0879 KERNEL CALL (SEND_ERRLOG, 1,.CURRENT_UCB) ; : 
; 367 80 4 ND; : 
; 368 81 END; ‘ 
: 369 a¢ END; ‘ 
Py 70 88 e 
; | Bae ! Loop until we have a good mount ; 
: 7 WHILE 1 DO : 
: «374 BEGIN : 
; 375 : : 
: 3? LOCAL STATUS; | : 
; 378 91 ! assume ali is going to work : 
3; 379 35 : 
: 80 9 STATUS = TRUE; ° 
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YO4~080 1e-Sep- 1984 93: 6:44 MTAACP. SRCJMOUVOL .B32; 1 sts (2) 
1 94 : 
¢ 3 ! Does the operator need to get involved ( mount a reel on a drive ) : 
: 44 IF NOT .MVL_ENTRYCMVLSV_MOUNTED] OR .FLAGSCMOUSV_MOUNTERR] : 
899 BEGIN i 
8 900 ; 
88 901 CAL ; 
34 8 rite : REF VECTOR C,BYTEJ, ‘ 
31 204 MESSAGE_NUMBER; : 
B? 4) ! find the size to the label, do not print trailing spaces | 3 
95 0908 LABEL ADDR = MVLENTRY C MVLST_VOLLBL 2: ; 
96 909 -MUL_ENTRY CAULSY UNUSED ’ 
97 1H EN LABEL_SZ ‘ 
98 ELS : 
99 3 
400 LABEL = 6; ° 
401 DECR ys FROM Avi ss TM 1 TO 0 DO ° 
40 IF .LABEL_A NEQ ' ; 
40 THEN EXIT FCooP 3 
404 ELSE LABEL_SZ = .LABEL_S2Z - 1; ; 
405 D;: F 
406 . 
rt't4 tell the operator to mount the reel ; 
409 ; 


ELSE MESSAGE" NUMB 
IF NOT so at AS6f. RE SSAGE ge »MAIL_CHANNEL, 
ree “SZ, .LABEL_ADDR, 


WA. A.AWIAI APO POPONPIPONYINPONUINIDY 2 OO OO 


COOCoooooooooooooooooooooooooooooo: 
DOOODOOOOOODOVODOOOOOOODODDDODOOODOONOONO 
MEUM “OO OONAUS WN “OVO ONOAULSWN—O 


BEGIN 
KERNEL_CALL(TERMINATE_VOL, .CURRENT_WCB) 
ERR_EXTT(SS$_NOTAPEOP); 
END; 
' block the process and wait for the operator to reply 
4 ENABLE MAIL_AST(); 

44 BLOCK (UCBSH WAIMOUVOL) ; 

41 ! The operator has rept ied so check if a label has been specified 

94 ! If it has then check it to be sure that it is a valid ANSI Label. 


if -MAILSZ GTR 0 
BEGIN 
! stuff the label in MVL after doing ANSI checks 
STATUS = KERNEL_CALL(OPERATOR_LBL); 
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H 9 IF NOT .STATUS 

; 439 9 THEN PRINT_OPR_MSG ( .STATUS, 0 

: 440 9 Cyt _DEVNAR_CENGTH, CVT_DEVNAM) 
> 64) 954 ELSE LABEL_SPEC [6] = TRUE; 

if a 

: rr , 3 ? ! No need to send another message to the operators console 
: rk | 339 & INFORM_OPER (OJ = FALSE; 

> 44 960 4 

: 4468 961 4&4 ! assume device is mounted 

; 449 306 4 

: 450 4 KERNEL_CALL (ASSUME MOUNTED); 

; 6451 964 4 KERNEL_CALL(SEND_ERRLOG, 1, .CURRENT_UCB); 

; C2 965 END; 

: 45 8308 

: 454 943 ! the reel was just mount or was already mounted now check it for 
> 455 968 ! being on online and valid 

; rs 0969 ‘ 

; «445 0970 IF .STATUS 

; 458 244 THEN 

; 459 97 

: 460 097 ! Rewind the reel 

; 461 0974 4 

: § 0975 INCRU J FROM 0 TO 29 DO 

; 46 0976 4 N 

; 0977 4 STATUS = REWIND_AND_WAIT(); 

; 465 0978 4 

; 4 0979 4 ! if on_line, then exit loop 

: 467 0980 4 : 

; 4 0981 4 IF .STATUS THEN EXITLOOP; 

; 469 0982 4 

; 470 09835 4 ! wait one second if offline 

3; 471 0984 4 ; 

; 47 0985 4 IF SYSSSETIMR(TIMEFN, SECONDS, 0, 0) 

> 47 0986 4 THEN SYSSWAITFR(TIMEFN); 

: 476 0987 END; 

; 475 0988 

3 ee 9434 : check for the write ring if needed 

; 478 b994 4 IF .STATUS AND ( NOT .BBLOCKCCURRENT_UCBCUCBS$L_DEVCHAR] ,DEV$V_SWL] ) 
; 479 9454 4 THEN IF NOT (STATUS = CHECK_RING ()) 

; 480 99 THEN PRINT_OPR_MSG ( MOUNS_WRITLCK, 0 

i 4 1 994 .CVT_DEVNAM-LENGTH, CVT_DEVNAM); 

3 rt 44) } check the users privileges to write and read to the volume 
: 485 0398 IF .STATUS 

3 rey, 999 THEN 

; 48 1 & 

: $38 1001 4 

3 4 1 § 4 ' assume device is mounted 

; 490 1 4 : 

: $33 ! ¢ 2 KERNEL_CALL (ASSUME _MOUNTED) ; 

: 49 1 4 ! exit if ‘'/BLANK"’ on the reply command on a write next volume 
; 494 1007 4 ! operation 


| 
| 
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: 


495 

4 ir ((, matt toncsy Beote srevuss SOE (OPC$_BLANKTAPE AND 2X'FFFF*)) 
49 OR a aad vtB Wily 

$2 T ¢ ‘FLAGS MOUSY. CNKFSPCI OR .FLAGS CMOUSV_LBLCHECK) ) 


N 
BEGIN 
if the use writes the tape he has override privs 
KERNEL_CALL( SET_MVL_OVERIDE, TRUE); 

} mount has succeeded exit ‘try till good mount"’ loop 
EXITLOOP; 
END; 


SRENVLS 


: mow check for ANSI accessiblity and VMS protection and 
exit the “try till good mount’ loop in everything is OK 


iF CHECK_ACCESS ( .FLAGS ) THEN EXITLOOP; 

END; 
mount did not work for some reason, force operator intervention 
FLAGS = .FLAGS OR $F IELDMASK(MOUSV_MOUNTERR) ; 


et ss ss tn 4 


8 } reset the state of things 
0 KERNEL _CALL(CLPREV_MAKECUR, .MVL STRVERL SS RVNJ, .VOL 
END; end of while abe good mount 
Bf ! Check to see if the operator should hear about the switch then return. 
04 IF .INFORM_OPER (0) 
04 THEN 
BEGIN 
l, LOCAL 
4 DESCR : VECTOR (2); ' Descr of the device name for 
Bs ! the FAO field in the msg 
be DESCR FO) = .CVT_DEVNAM_LENGTH; ' Length of dev name 
DESCR C1) = CVT_BEVNAM; ' Address of the dev name 


! Assume that the size of the label is 6. This is a safe assumption 
! because we generated the Label. 


enpRINT. OPR_MSG (MOUNS_MOUNTED, 0, 6, MVL_ENTRYCMVL$T_VOLLBL,DESCR); 
RETURN -AVL_ENTRY; 
END; ! end of routine MOUNT_VOL 
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MTAACP.SRC }mOUVOL -B32; 
SCODES,NOWRT,2 


MEEBO 


SLOCKEDD1$,NOEXE,2 


00000 TAPE_OWNER: 
00004 TAPE Pmt 


S06 Lac. seit 


00009 “BL KB 
QOO0C INFORM a am 


00000 ~BLK 
00010 CVT_DEVNAM: A 


4 
1 
3 
1 
3 
LK 1 
00020 CVT_DEVNAM LENGTH: 
-BCKB 1 


% AAA 


AAB 
cunRenit UCB, CURRENT wcB 
10_CHANNEL ATuS 
MATL C CHANNEL OoRK AREA 

BLOCR< K PROT 

eset My ger 

DEVNAR. CORINT _OPR_MSG 
ie LABEL 


PROCESS vot 2a 


SYS$W 
TERMINATE _VOL, SYSSCAKRNL 


SCODES ,NOWRT,2 
MOUNT_VOL, sexe 
ASSUME MOUNTE 
PRINT OPR MSG.” 
SHSTSSCRKRNL RS 
5 (CURRENT _VCB) 
#0, #8, 11(MVL), 


#*M<R2,R4> 
3 


0723 


oO 
~“ 


NOVTTD—mMmooInroooon" 
BWrOIOWMWIOOCOrwmmmmea 


2 ie oR3,R4,R5,R6,R7,R8,R9, R10 ; 


C79 


MVL 
079 


R2 


§ 


0795 


52 Ad 


COOoooooooo 


COOOooooOoooooooo 


BARU SSS SSCS 


WU "OD OW™DWOo 


0000V nae vo 


ENTRY 
» SYS 


SCRKRNL 
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1b-5e =1984 02:25:33 AX-11 Bliss-32 V4.0-74 Page 1 
1 ~3007}38t 95:22:23 ERTAACPeSRe MOUVOL .832; . B 
50 00 MOVL RO, MVL : 
1¢ need re 35 1$ MOVAQ : (mv) CRI, MVL ENTRY + 0799 
20 «OA p 4 MOVL ( CURREN VCB),"R : 0809 
44 C«A 44 MOVAB g (R3), UCB List : 
07 ad €E 48 BLBC MVL_ENTRYS, 2$ + 0810 
g E 4C BBS #3, FLAGS, 2$ : 
po PUSHL R + 0811 
06 Ay 9A MOV ZBL S(MVLLENTRY), -(SP) : 
04 €0 9 28 BBS #4, 4S5(CURRENT_VCB), 4$ + 0820 
0B «AB gf 2 CMP 11(R3), #1 . : pass 
ye 18 99 BLEQU 4$ : 
—E D CLRL = (SP) + 0824 
5E bb 9066 PUSHL SP : 
0000v CF 9F 0006 PUSHAB CLEAR UNIT : 
FB 0006C CALLS #3, SYSSCMKRNL : 
D 006 PUSHL + 0825 
0000v 30 00071 BSBW CHOOSE_UNIT ; 
50 DD 007% PUSHL R : 
ge DD 076 3$ PUSHL # : 
E DD 0007 PUSHL SP ; 
0000v CF 9F OOO7A PUSHAB MAKE_CUR_VOL : 
OF 11 0007E BRB 5$ : 
: D 00080 4$ PUSHL R2 + 0827 
0000v 30 0082 BSBW CHOOSE_UNIT : 
30 DD 0008 PUSHL R ; 
g DD 00087 PUSHL # 3 
E DD 00089 PUSHL SP ; 
0000v CF 9F 0008B PUSHAB CLPREV MAKECUR : 
05 FB OOO8F S$ CALLS #5, SYSSCMKRNL ; 
07 Ad €E9 00092 BLBC 7(MVL_ENTRY), 6$ ; 0832 
03 £0 00096 BBS ’ , 6$ : 083 
08 ac 8 00098 BLBS FLAGS, 6$ : 0834 
OF 1 OOO9F BRwW 9$ 3 
01 BA OOOA2 6S: BICB2 #1, INFORM_OPER > 0843 
11 BA 000A6 BICB2 #1, LABEL_SPEC + 0844 
56 DD OOOAA PUSHL : 0850 
10 a 9F OOOAC PUSHAB CVT_DEVNAM_LENGTH : 
0 FB OOAF CALLS #2, DEV_NAME F 
4 €0 0008 BBS #4, 45(CURRENT_VCB), 8$ : 0857 
14 8B 00089 PUSHR #*M<R2,R4> : 0860 
g2 DD 000BB PUSHL #2 ; 
e BD 00BD PUSHL SP ; 
0000v CF 9F PUSHAB CREATE LABEL ; 
5 FB C3 CALLS #5, 5ys CMKRNL 3 
0 ¢ BLBC —_-«RO. «BS : 
ot C BISB2 #1, LABEL_SPEC : 0869 
1 CD BISB2 #1, INFORM_OPER : 0870 
20 AB p D1 MOVL $2 {CURRENT VCB) . RO > 0875 
0B Ad 91 000D CMPB (RO), #1 : 
1A 18 D BLEQU : 
7E D DB CLRL =s-_ = (SP) : 0878 
4100 i BB 000DD PUSHR #*M<RB sP> ; 
3 FB OOOE1 CALLS #3, SYSSCMKRNL : 
00006 CF DD O00E4 PUSHL  CURRENT_UCB : 0879 
1 DD OO0E8 PUSHL #1 : 
2 DD OOOEA PUSHL #2 ; 


03 


09 


09 


08 


07 


08 


08 


00006 
00006 


00006 


0072820C 


0072809C 
00728204 


10 
2F 
00006 


00006 


00006 
0264 


00006 


0000v 
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4 02:25:33 AX-11 Bliss-32 V4.0-74 
382 95:92:22 YRTAACP Se MOUVOL .B32; 

PUSHL SP 

PUSHAB SEND ERRLOG 

pats i: Shanageem 

BLBC  $7(MVL_ENTRY), 9$ 

BBS ' { FLAGS, 9$ 

MOVL MVL ENTRY, LABEL_ADDR 

BBC #1,-7(MVL_ENTRY), 10$ 

patel 

poyt fe iets 

CMPB CTSCLABEL ADDR, #32 

BNEQ 12$ 

Bteo Yefhe 

BBC wi, FLAGS, 13$ 

MOVL #7304 96, MESSAGE_NUMBER 

BBC i FLAGS, 14$ 

MOVL #7304 28, MESSAGE_NUMBER 

OVI #7504388, MESSAGE _NUMBER 


PUSHL 
MOVZBL CVT_DEVNAM_LENGTH, -(SP) 
PUSHL LABEL_ADDR 


eit 
MOVZBL 47(CURRENT_VCB), -(SP) 
PUSHL MAI ANNEL 


JSB 
ADDL2 : 

BLBS RO, 1 

PUSHL  CURRENT_WCB 
PUSHL #1 


SP 
PUSHAB TERMINATE VOL 
CALLS oie SYSSCAKRNL 


CHMU 6 

CALLS #0, ENABLE_MAIL_AST 
PUSHL #4 

CALLS #1, BLOCK 

TSTL mAlLsz 

BLEG ~=s«‘18 

CLRL = = (SP) 


SP 
PUSHAB OPERATOR LBL 
CALLS 4% SYSSTMKRNL 
MO RO, STATU 


STATUS, 17$ 
MOVZBL CVT_DEVNAM_LENGTH, -(SP) 
C =(SP) 


STATUS 
ol OPR_MSG 
#16, SP 
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Nu 


33 
44 
4 11 QO1A BRB 18$ ; 
as 1 88 OO1A7 178: B1 $82 ee LABEL_SPEC + 0954 
A 1 8A QOO1AB 18$:  BICB2 #1, INFORAM_OPER : 0959 
E D4 OO1AF CLRL. 0s = ( §P) + 0963 
4100 af BB 001B PUSHR #*M<RB sP> : 
65 3 FB 001B CALLS #3, SYSSCMKRNL : 
00006 CF oD 001 PUSHL  CURRENT_UCB + 0964 
1 DD 0018C¢ PUSHL Hi : 
2 DD 0018 PUSHL # : 
E DD O01C PUSHL SP : 
00006 CF 9F O0IC PUSHAB SEND ERRLOG ; 
5 FB pie CALLS @# SYSSERKANL : 
A £9 001C9 19$:  BLBC STATUS, 23$ : 0970 
52 04 gice rm, ig : 0975 
00006 cf F ck 20$: CALLS #0, REWIND_AND_WAIT + 0977 
3 DO 0010 MOVL RO, STATUS ; 
2 E 0106 BLBS STATUS, 22$ + 0981 
E 7C 0010 CLRQ =(SP) + 0985 
FE19 cr 9F 001DB PUSHAB SECONDS : 
3 Dd OO1DF PUSHL : 
000000006 9F 04 FB O1E1 CALLS #4, @#SYSSSETIMR : 
09 30 E9 OO1E8 BLBC ~=—._«aRO,. 218 : : 
03 DD OO1EB PUSHL  # + 0986 
000000006 9F 01 FB OO1ED CALLS #1, @#SYSSWAITFR : 
52 D6 OO1F4 218 INCL J + 0975 
1D 52 «(1 O01F6 CMPL «sod, -#29 ; 
p 1B 001F9 BLEGU $ ; 
&6 E9 O01FB LBC STATUS, 27$ : 0991 
50 00006 CF DO O1rE 22$ MOVL CURRENT UCB, RO ; 
1E 3B = AO 61 £0 0020 BS #1, 59(RO), 23$ : 
0000v CF 90 FB 00208 CALLS #0, CHECK_RIN + 0992 
53 59 DO 00200 MOVL RO, STATUS ; 
16 53 €8 0021 LBS STATUS, 24$ 3 
56 DD 0021 PUSHL : 0993 
7E 10 A6 9A 0021 MOVZBL CVT_DEVNAM_LENGTH, -(SP) + 0994 
7E 04 00219 CLRL = = (SP) : 0993 
00728134 8F DD 0021B PUSHL #7504180 : 
67 16 00221 JSB PRINT_OPR_MSG : 
5E 19 CO 00223 ADDL2 # ; 
38 3 E9 00226 238: BLBC STATUS, 27$ : 0998 
E D4 00229 24$:  CLRL =(SP) > 1004 
4100 BF BB 00208 PUSHR #*M<R8,SP> ; 
65 3 FB OO2eF CALLS #3, SYSSCMKRNL : 
81E3 BF 00006 E 8} 0 2 CMP MAIL+2, #33251 + 1009 
19 2D «AB : E1 00 BBC #2, 45(CURRENT_VCB), 26$ : 1010 
14 08 ac EO 40 25$: BBS #2, FLAGS, 26$ : 1011 
OF 08 Ac 1 € 4 5 #1, FLAGS. 26$ ; 
1 DD O024A PUSHL #1 : 1017 
1 DD 0024¢ PUSHL #1 : 
E BD 4 PUSHL SP : 
o000v CF OF PUSHAB SET _MVL OVERIVE ; 
65 o 8 4 CALLS #4, SYSSCMKRNL 3 
' } 7 BRB 28$ ; 1013 
08 AC OD 9 26$:  PUSHL FLAGS > 102 
0000v CF o1 FB ¢ CALLS #1, CHECK ACCESS F 
16 O€ 61 BLBS RO. 28$ ; 


08 ac 08 
6 A 

7 6 i 
0000v cr 

; rere 
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04 6 
4200 ; 

e 

0072A003 8F 
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; Routine Size: 669 bytes, Routine Base: S$CODE$ + 0014 


i Bieeite EATAAceSSne SnouveL 83034 


#8, FLAGS 
(HVLLENTRYD, ~(SP) 
z 


SP 
PREV_MAKECUR 
i one OPER, 


298 
T_DEDNAM_ LENGTH. P aaienae 
a DESCR+ 


#7512067 
PRINT_OPR_MSG 
MVLENTRY, RO 
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38 
33 


3 r } rs ! GLOBAL ROUTINE GET_DEV_NAME(LEN, C_DEVN) : COMMON_CALL NOVALUE = ° 
: §50 1 g 1 {+ ; 
3 1 1 1! ; 
; ¢ 1064 1 ! FUNCTIONAL DESCRIPTION: F 
3 1065 1! This routine converts a UCB address into te device's name by calling > 
3 ¢ : : } the system routine IOCSCVT_DEVANM. : 
3 6 1 28 1 ! CALLING SEQUENCE: : 
; ef He 34 : GET_DEV_NAME (ARG1 ,ARG2) : 
; 35 197) 1 | INPUT PARAMETERS: 3 
; 560 1 Lf 1! ARG1 = Address to store the Length of the device name : 
3 2 eg : } ARG2 = Address to store the name of the device ; 
$ 8 1075 1°! IMPLICIT INPUTS: 3 
3 44 1378 ' CURRENT_UCB = address of current unit control block : 
; He 1078 1 ! OUTPUT PARAMETERS: H 
3 2ef 1923 : The Length of the device name and the device name are returned : 
3 292 1081 1 ! IMPLICIT OUTPUTS: F 
; 570 136 1! NONE ; 
; 571 1083 1! 3 
; 2f¢ 1084 1 ! ROUTINE VALUE: 3 
s ST 1085 1! NONE : 
3; 574 1086 1! 3 
; 575 1087 1 ! SIDE EFFECTS: 3 
3 378 1088 1! NONE F 
:. or 1089 1! 3 
; 578 1090 1 !<- 

3 T44 1091 1 

: 580 1036 BEGIN 

; 581 109 

: 286 1094 EXTERNAL REGISTER 

; 58 1095 COMMON_REG; 

3; 584 1096 

; 585 1097 BIND 

: 586 1998 CVT_DEVNAME = .C_DEVN, ! Storage for cvted device name 

: 587 1099 LENGTH = .LEN, ! Length of device name 

3 238 1199 IN_NAME_LENGTH = MAX_DEVNAM_LENGTH; ! Set the maxium Lentgh if dev nam 

3 259 1108 LOCAL 

; 591 182 OUT_NAME_LENGTH : BYTE, ' Actual Lengeh of device name gotten from the convert 

: 3 11 CVT_DEVNAM_STATUS, : Status of the convert on devnam 

; +9 1105 DEV_NAME : VECTOR CMAX_DEVNAM_LENGTH,BYTE i ! Local storage for the 

3 age $ ' name from the convert 

3 4) 1108 ! Call to the system routine to get the device name of the drive to use 

; 59 1109 ! given the UCB associated with that drive. This routine gets both 

; 598 1110 !' the node name and the device name. 

3; 599 1111 ! NOTE: DEV_NAME must be in local storage, because the routine expects 

3 $20 iii¢ ! this field to be always accessible. 

i; 6 g 1114 CVT_DEVNAM_STATUS = IOCSCVT_DEVNAM ( IN_NAME_LENGTH, DEV_NAME, 0, 

3 on7 4442 ~CURRENT_UCB; OUT_NAME_LENGTH); 


: 


5 $05 1117 
3 on8 1318 
3 111 
; 608 1120 n this format. 
3; 609 1121 
: 610 11 ¢ CHSMOVE (.OUT_NAME_ 
: 611 11 LENGTH = .OUT-NAME-LENGTH: 
; 612 1124 1 END; 
007 
5E 10 
51 6E 
55 0000G CF D 
54 D 
50 10 D 
000000006 9F 1 
56 51 D 
50 56 9 
0&8 BC 6E 50 2 
04 «BC 56 . 


; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0281 
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COOoQoooooooooo 
Soooooooooooo 
OoCooooocooooo 
mn pore hO meee 
NWM@ or Oo coun 


N 10 
-S$ep-1984 02:25:33 AX-11 Bliss-32 V4.0-74 
1 ~3007 138% 95: 6:44 ERTAACP SRE MOGVoL e306 
! Move the resultant string into a field accessable to the entire module. 
: Also fill the first byte of the string with the size of the string for 
! 


LENGTH, DEV_NAME , CVT_DEVNAME) ; 


IN_NAME_LENGTH= 


he call to PRINT_OPR_MSG. The FAO string expects the device name to be 


16 


GET_DEV_NAME, Save R2,R3,R4,R5,R6 
#16, SP 


DEV_NAME, R1 
CURRENT UCB. RS 


b) L , RO 
RO, DEV_NAME, aC_DEVN 
OUT _NAME_LENGTH, a@LEN 


1060 
1114 


1122 


1123 
1124 


$3 | 


$2 
e 
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: $16 1127 1 ROUTINE CHOOSE_UNIT : LSCHOOSE_UNIT = 

3 61 11 8 1 

$ oi8 11 1 !4¢ 

, 6) 1130 1! 

; 620 1131 1 =! FUNCTIONAL DESCRIPTION: 

3 ? 1 1 ¢ ! this routine chooses the next unit to use 

3; 6 g 1134 1 ! CALLING SEQUENCE: 

3 ? ¢ 1} 5 : CHOOSE _UNIT() 

: 626 11 $ 1 ! INPUT PARAMETERS: 

; 627 1138 1! NONE 

; 628 1139 1! 

; 629 1140 1 =! IMPLICIT INPUTS: 

3 ? , 138) } } CURRENT_VCB = address of current volume control block 

; 6 § 1148 1 ! OUTPUT PARAMETERS: 

; § 1144 1! NONE 

; 634 1145 1! 

3 6355 1146 1 ! IMPLICIT OUTPUTS: 

3; 6 1147 1! NONE 

; 637 1148 1! 

; 638 1149 1 =! ROUTINE VALUE: 

: 639 1150 1! relative unit number 

3; 640 1151 1! 

; 641 1126 1 ! SIDE EFFECTS: 

3 ong 1155 1! The current algorythm is increment current unit. 

5 ok 1328 : If it is allocated then use it else wrap around to first unit. 

: 645 1126 1 t= 

; 646 1157 1 

3 647 1158 § BEGIN 

: 648 1159 

; 649 1160 EXTERNAL REGISTER 

3; 650 1161 COMMON_REG; 

3; 651 1166 

: $3¢ 116 LOCAL 

s 65 1164 NUNITS, ! number of units allocated 
: 654 1165 RVT : REF BBLOCK, ' address of unit table 

3 $2? 1166 UNIT; ' unit to use 

3 $2¢ HH 4 RVT = .CURRENT_VCBCVCBSL_RVTI; ! get address of unit table 
3 029 1199 NUNITS = .RVTCRVTS$B_NVOLSJ; get 8 of units allocated to 
3 ! s volume se 

: o) 1178 UNIT = .CURRENT_VCBCVCB$W_RVN] + 1; ! inc current rel unit number 
: £0 1174 IF .UNIT GEQ .NUNITS 

; 664 1175 THEN 

3; 665 1178 UNIT = 0; ! if not allocated, use Ist one 
3 re] 1128 RETURN .UNIT; 

3; 668 117 

3; 669 1180 1 END; ! end of routine CHOOSE_UNIT 
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138% 96:43:22 AX-11 Bliss-32 V4.0-74 
1984 12:46:44 MTAACP.SRC JMOUVOL .B32; 


ee 


; 671 1181 1 ROUTINE CLEAR_UNIT : NOVALUE MVL_UCB = 

; ore 11 § 1 

; 67 11 1 44 

; 674 1184 1! 

: 675 1185 1 ! FUNCTIONAL DESCRIPTION: . 

$ ore 11 § 1! This routine dismounts the Last used volume in a volume set. It does 
; Of 11 7! this by checking the Current UCB against the List of UCB's to find the 
; 678 1188 #1! unit number. Then checking each entry in the MVL for that unit number. 
; 679 1189 1! If that unit is marked mounted then a Q10 is issued to dismount and 
; 680 1190 1! unload that volume and the MVL is marked dismounted. This will allow 
; 681 1191 1! the operator to mount the next reel in the volume set before it is 

3 68 1138 ! actually needed by MTAACP processing. 

; 684 1194 1 ! CALLING SEQUENCE: 

3 oa? 113? : CLEAR_UNIT() called in Kernel mode 

; 687 1197 1°! INPUT PARAMETERS: 

; 688 1198 1! NONE 

; 689 1199 1! 

; 690 1200 1 ! IMPLICIT INPUTS: 

s $9) : 9 ! } CURRENT_VCB = address of current volume control block 

; of 1 8g 1 ! OUTPUT PARAMETERS: 

; 694 1206 1! NONE 

; 695 1205 1! 

; 696 1 Be 1 ! IMPLICIT OUTPUTS: 

3 ot : 4 : } Last mounted volume is dismount and unloaded. 

; 699 1209 1 ! ROUTINE VALUE: 

: 700 1210 1! none 

; 701 1211 1°! 

; 1 \¢ 1 ! SIDE EFFECTS: 

; 70 121 1! none 

: 704 1214 1°! 

; 705 1215 1! 

: 706 1216 1 !<= 

; 707 1217 1 

; 708 1218 BEGIN 

; 709 1219 

; 710 1 $y EXTERNAL REGISTER 

5 6h 1221 MVL_ENTRY = 9 : REF BBLOCK, ' Address of current MVL not 
3 at; 1 ¢ ! used by this routine 

. ae 1 UCB_LIST = 10 : REF VECTOR, ! Addr of UCB List for vol set 
; 714 1224 COMMON_REG; 

3; 715 1225 

3 at 1 § LOCAL 

: 71 1 NUNITS, ' number of units allocated 
: 718 1228 RVT : REF BBLOCK, ' address of unit table 

; 719 1229 UNIT ' unit currently in use 

: 720 1230 NVOLS, ' number of volumes in set 

3 es) 1231 MVL : REF BBLOCK, : odde of magtape volume List 
ee § 1 § MVL_ADDR : REF BBLOCKVECTOR C10,MVLSK_LENGTHI; 

Tee 123 ' addr of MVL control block 
ORR 

ae § 1236 RVT = . CURRENT VCBCVCB$Si_RVT); ! get address of unit table 
: 72 1237 NUNITS = .RVTCRVT$B_NVOLSJ; : get # of units allocated to 


row 


11 
IERESHMEE ABSREHEE ARAL Puan Bt 


a2 
Ss 


; 7 8 } 3 UNIT = 0; ! Set first unit 
: i 0 124 ! Check thru the List of UCB to find the unit number of the UCB currently 
: f 1 ; $3 ! in use. 
, £ g 1 rk INCR I FROM 0 TO ,NUNITS = 1 DO 
ez 1044 IF .UCB List € .UNIT ] EQL .CURRENT_UCB 
3 735 1245 THEN EXTTLOOP 
wm. 1 $ ELSE UNIT = .UNIT + 1; 
mS 124 MVL = .CURRENT VCBLVCBSL_AVL); ! get the magtape vol List addr 
: 738 1 3 NVOLS = .MVLCMVLSB_NVOLS]; ! get the numb of volume in set 
: 139 49 MVL_ADDR = .MVL + AVLSK_FIXLEN; i get the first volume entry 
; 741 1 5 ! Check thru the mounted volume Labels to find the entry which points 
s 76 1 § ! at the current unit and is mark as mounted. When we find that entry, 
3; 74 125 ! a message is send to the ERRORLOG saying the volume has been dismounted; 
; 746 1254 ! the entry is marked dismounted and a Q10 is issued to the drive to unload 
3 re : 3? ! the reel from the drive. . 
; 747 1 3$ INCR I FROM 0 TO .NVOLS = 1 DO 
; 248 38 IF .MVL_ADDR € .1, MVLSV_MOUNTED J 
; 750 1260 -UNIT EQL .MVL_ADDR C .1, MVLSB_RVN J 
: 751 1261 THEN 
3 ree 1 ¢ EGIN 
; 75 126 KERNEL_CALL(SEND_ERRLOG,O, .UCB_LISTC.UNITJ); 
: 754 1264 MVL_ADDR C .1, MULSV_MOUNTED J~= 0; 
: 755 1265 SYSSQ1OW ( 0, .10_CHANNEL 
; 756 1266 10$_UNCOAD OR [OSM_NOWAIT OR IOSM_CLSEREXCP, 
; 757 1267 0, 0, 0. 0. 0, 0, 5. 0, 0); 
; 758 1268 EXITLOOP; 
; 759 1269 2 ND; 
: 760 1270 1 END; 
003C 00000 CLEAR_UNIT: 
.WO $ave R2,R3.R4,R5 
50 20 AB 00 00002 MOV 2(CURRENT VCB), RVT 
51 AO 9A 00006 MOVZBL 11(RVT), NONITS 
s a 
iH f § Bf BRB 2s 
0000G CF 6A44 D1 11 18: CMPL (UCB_LIST)CUNIT], CURRENT_UCB 
6 13 17 BEQL 3$ 
4 0 19 INCL UNIT 
F2 , F 18 gf: AOBLSS NITS, I, 1$ 
3CON 1F 3$: MOVL  52(CURRENT_VCB), MVL 
$e A A ; MOVZBL Sb Te NVOLS 
; 4 A E MOVAB 6(RO), MVL_ADDR 
5 01 ff B MNEGL #1, I 
4A F RB $$ 
07 A24 7F 4$ PUSHAQ (MVL apn t)} 
42 9E 0 ft C #0, aTSP)+ 
06 A243 7F 8 PUSHAQ 6(MVL_ADDRSCI) 


ed ana Sd Ht a 
= 
co 


a a ss es ss ss ss an ss ss 


; Routine Size: 


00006 cf 
07 “i 
f 

f 

y 
Ble 
E 

oc 


“I 
uw 


SCODES + O2EF 


ONO IOWS VOT OO NO 


FMVS DEOIOLOOOOF VWI *OCONSO 


AX=-11 OL iss -32 v4.0 
MTAACP, SRCI MOUVOL. g354 


, #8, a(SP)+, UNIT 
CB_LIST)CUNITI 
=(SP) 


ANNEL 


NVOLS, I, 4$ 


Sep-1984 33 YAX-11 BLise-32 v4.0-7 Page 23 
ibe ep-198e 13:46:46 — ENTAACPSRESMOUVOL 1836; i 


} 163 } if } ROUTINE CLPREV_MAKECUR (UNIT, VOL) : MVL_UCB NOVALUE = 

; 765 1274 1 !e4 

; £08 1075 1: 

; 76 1 6 1! estas 71 DESCRIPTION: 

; 768 a: 2s This rov.ine clears the previous use of this unit in the 

; H ! 4 : oan tape volume List and makes the unit and rel columns current 

s 77) 1280 1 ! CALLING SEQUENCE: 

3 ure : 1 } } CLPREV_MAKECUR(ARG1,ARG2), CALLED IN KERNEL MODE 

; 776 1 j 1 ! INPUT PARAMETERS: 

s 75 1284 1! ARG] = relative unit number 

: a : 5 : ARG2 - relative volume number 

; 778 1 1! SAPLICTY eyes 

: 779 1288 1! CURRENT_VCB = address of current voluse control block 

: 780 1289 1! MVL_ENTRY = address of current entry in mvl for volume 

; re : $s : } UCB_LIST = address of ucb's available for this unit 

; 78 1292 1 ! OUTPUT PARAMETERS: 

; 784 1293 1! NONE 

3: 785 1294 1! 

; 786 1295 1 ! IMPLICIT OUTPUTS: 

3; «787 1 38 1! NONE 

; 788 1297 1! 

; 789 1298 1 ! ROUTINE VALUE: 

: 790 1299 1! NONE 

; 791 1300 1! 

; 79 1301 1 ! SIDE EFFECTS: 

3 1302 1! if volume currently mounted on unit, rewind issued 

: 794 1303 1! 

; 795 1304 1 !<- 

3 ay 1305 1 

; 79 130 BEGIN 

; 798 130 

; 799 1308 EXTERNAL REGISTER 

: 800 1309 ENTRY = 9 REF BBLOCK, ! address of current rel vol in mvl 
: 801 1310 UCB_LIST = 10 REF VECTOR, ! address of UCB's 

3 4 1311 COMMON_REG; 

: 80 1 \¢ 

: 04 131 LOCAL 

; 805 1314 : REF BBLOCK, ' addr of ACP I0 channel 

3 06 1315 centret block 

; 80 1 1 MVL : REF BBLOCK magt as? voiuns list 
: B08 131 MVL_ADDR : REF BBLOCKVECTOR C10, ave : "LEN T 

3 1318 ' address of MVL entries 

; 810 1319 NVOLS; 

: 11 1326 

: \¢ 1321 

: 81 } 3 co = GET CCB ( 10 fnew ' calc ACP 10 CCB 

3 814 1 = .CURRENT VCB yeast AVL: ' address of mvl control block 
; 815 1324 NVOLS = .MVLCMUL$B_NVOLSI; ' number of relative volume 
: 1g ' 5 MVL_ADDR = .MVL + at _FIXLEN; ' addr of entries for rel vol 
: 8 1 $ INCR I FROM 0 TO .NVOLS - 1 DO ' check each relative volume 
: 1 1328 BEGIN 


$3 


ee ee ee ee eS ee ee ES SY 


Be Se Se Se Se Ge Be Se Se Se Se Se Se Fe Se Se Se Ge Se Se Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Se Se Se Se Ge Fe Se Se Se Se Se Se ee Se Sees Se Fe Se Se seas 


: 


KERNEL_CALL(SEND_ERRLOG, 0, .UCB_LISTC. 
MVL_ADDRC.1, MVLS$V_MOUNTED) = 0; 


EXITLOOP; 


MAKE _CUR_VOL(.UNIT, .VOL); 
END; 


3 0 1 
3 1 1 3 
3 ¢ 1331 
3 1 § 
3 4 1 
; 5 1334 THEN 
3 $ 1335 4 BEGIN 
3 1 § 4 
3 a 1 4 
3 9 1338 4 
3 1339 4 
3 1 1 re 4 
3 ¢ 1341 4 
3 1 tg 4 
3 1345 4 
3 5 1344 4 
3 1345 4 
3 7 1 r¢ 4 
$ 1347 4 
; 839 1348 4 
: 0 1349 END; 
: BG) 138) END 
3 Be 1 26 
3; 844 135 
: 845 1354 
0000G CF 
26 
38 
52 
54 
4C 9E 
04 AC GE 08 
53 
7E 
00000000G 9F 
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33 are} Bliss-32 V4.0-74 
44 MTAACP. SRC JMOUVOL .B32; 


nted 


assign channel to it's unit, 


CCBCCCBSL_UCB) = .UCB_LISTC.UNIT); 
SYS$SQ1OW(O, .10_ CHANNEL 
$_UN OAD OR 


! if mount 
~UNIT EQL .MVL_ADDRC.1, MVLS$B_RVN] ! on unit about to be used 


UNIT}); 
! before mounted is cleared!! 
! mark it dismounted, 


OSM_NOWAIT OR IOSM_CLSEREXCP, 


0,0,0,0,0 3; ! unload the tape, please 


! end of 
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-Sep-1 : 
ROUTINE MAKE_CUR_VOL (UNIT, VOL) : NOVALUE MVL_UCB = 
++ 
FUNCTIONAL DESCRIPTION: 
This routine makes the relative volume number on the rel unit the 
one bg De rg it notes that the current volume is mounted on this 
v 


CALLING SEQUENCE: 
MAKE _CUR_VOL(ARG1,ARG2) in kernel mode 


INPUT PARAMETERS: 
ARG1 = relative unit number on which the relative volume is mounted 
ARG2 = relative volume number(starts at 1) 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 

SIDE EFFECTS: 
NONE 


i 
i 
! 
lao 
BEGIN 
EXTERNAL_REGISTER 
MVL_ENTRY 


5: = 9  : REF BBLOCK, ! address of current rel vol in mvl 
uce LIST = 10 : REF VECTOR, ' address of ucb's allocated 


LOCAL 
CcB : REF BBLOCK; ! address of channel control block 


: calculate address of channel control block 
CCB = GET_CCB ( .IO_CHANNEL ); 
assign channel to unit and set current ucb 


CCBCCCBSL_UCB) = .UCB_LISTC.UNIT); 
CURRENT_UCB = .UCB_LISTC.UNITJ; 


: now set volume control block fields 


CURRENT_VCBCVCB$W_RVN) = .UNIT; 
CURRENT~VCBLVCB$B~CUR_RVN) = .VOL; 


11 
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ee 
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; Routine Size: 


39 bytes, 


K 11 

=$ep-1984 02:25:33 
: ~3007 1382 93 :e8 ie 
H note which unit the volume is mounted on 
MVL_ENTRY C MVLSB_RVN ) = .UNIT; 
END; 


AX-11 ey V4.0-74 
MTAACP.SRC JMOUVOL .B32; 


! end of routine MAKE_CUR_VOL 


Save nothing 
00006 cf DD 002 PUSHL 10_ CHANNEL 
00006 cf eS. CALLS #17 GET CCB 
1 04 aC 00 00008 MOVL UNIT, RT 
60 6A41 DO OO00F MOVL  (UCB.LIST)CR1], (CCB) 
00006 CF 6A41 DO 00013 MOVL  (UCB7LIST)CR1]. CURRENT_UCB 
OF AB 51 B80 90019 MOVW R11, T4(CURRENT VCB) 
2F AB 08 AC 90 0001D MOVB VOL, 47(CURRENT_VCB) 
06 Ad 51 90 00022 MOVB R1, 6(MV RYS 
04 00026 RET 


Routine Base: SCODES + O3EF 
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1-56 =1984 02:25:33 VAX=11 Bliss-32 v4.0-74 p 8 
17n800-13Re 98:23:22 PANEL Bk tag 22 Vb -O506 aoe gf 
ROUTINE MAKE_VOL_ENTRY (VOL, MVL) : COMMON.CALL = 
144 
' 
FUNCTIONAL DESCRIPTION: 


$s routine puts a relative volume in the Gegnetic tape volume 
List by making a new block and deallocating the old one 


CALLING SEQUENCE: 
MAKE _VOL_ENTRY(ARG1,ARG2), CALLED IN KERNEL MODE 


INPUT PARAMETERS: 
ARG] = volume number 
ARG2 - address of magnetic tape volume List 


IMPLICIT INPUTS: 
CURRENT_VCB = address of current volume control block 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
MVL rebuilt 


ROUTINE VALUE: 
address of mvl control block 


SIDE EFFECTS: 
NONE 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 


MAP 
MVL : REF BBLOCK; ! addr of mag tape volume List 


LOCAL 


MVL_ADDR: REF BBLOCKVECTOR (10, MVLSK_LENGTH], 

' address of MVL control block 
NEWMVL : REF BBLOCK, ' address of new MVL 
NVOL; ! number of volumes 


EXTERNAL ROUTINE 
! allocate non_paged system mem 
DEALLOCATE; i deallocate non_paged sys mem 


VOL = .VOL + 4; ' grab some extra slots 
NVOL = .MVLCMVL$B8_NVOLS); i get # of vols it will hold 
NEWMVL = ALLOCATET(.VOL*MVLSK_LENGTH) + MVLSK_FIXLEN); 

! allocate non_paged sys space 


! initialize new MVL 
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aie 186 .s 28 .82 58 80 84 88 - 8s 40 8s 2s 08 0s ts 8 


4 ae 44 04 24 08 68 28 68 288 288 28s 28 28d 88 od 28d OBE OB ods 28d 28s 288 28s 88 28s 8d 28s 28s ks 08 28s 08 
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: 


2 


H 147 : 

; 308 138 NEWMVL MVL$B_ TYPE = DYNSC_MVL; 

; 147 NEWMVLEMVLSL-VCB) _ = .CURRENT_VCB; 

: 2 1078 NEWMVLLMVLSB_NVOLS] = .VOL; 

; 31 1628 copy all the old volume labels, File-Set-1D, and Vol_Acc 
; $8 1° 9 CHSMOVE(.MVLCMVLSW_SIZE) = 12, .MVL + 12, .NEWMVL + 12); 

3 975 14 3 ! blank new relative volume Lables 

; 379 1484 MVL_ADDR = .NEWMVL + MVLSK_FIXLEN; 

: 3f8 1? 5 sana Hs -NVOL TO .VOL = 1 DO 

; 980 14 2 CHSFILL(* °, MVLS$S_VOLLBL, MVL_ADDRC.1, MVLST_VOLLBL)); 
; 981 1088 MVL_ADDR C .I, MVLSV_UNUSED = 1; 

; ¢ 14 MVL_ADDR C .1, MVLSV_MOUNTED J) = 0; 

; 98 1490 END; 

3 eee 163) ; 

aes 34 1438 : set pointers to the new 

; 987 1494 CURRENT_VCBCVCBSL_MVL) = .NEWMVL; 

; eae 1495 

: 388 1039 get rid of the old 

; 991 1498 DEALLOCATE(.MVL); 

; VF 1499 

; 1500 RETURN .NEWMVL; 

; 994 1501 

; 995 1502 1 END; ! end of routine MAKE_VOL_ENTRY 


eEXTRN ALLOCATE, DEALLOCATE 
O7FC 00000 MAKE_VOL_ENTRY: 
WOR 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10 : 
SE 4 C2 0000 SUBL2 #4, SP : 
04 Ac 4 €0 0000 ADDL2 #4. vo. + 1467 
59 08 AC DO 00009 MOVL vl, R : 1468 
56 0B AS 9A 0000D MOVZBL 11(R9), NVOL ; 
3A 04 AC p 011 OVL VOL, R10 + 1469 
7E A 015 H #3. R10, -(SP) : 
6E 4c¢ 19 ADDL2 #36, (SP) : 
00006 gf 1 1C CALLS #1, ALLOCATE 3 
0 3 1 MOVL Rg eh : 
OA A 16 4 MOVE #22, 10(NEWMVL) + 1474 
6 38 8 MOVL § CURRENT VCB, (NEWMVL) + 1475 
0B OA A B MOVE R10, 11TNEWMVL) : 1476 
20 08 a9 F ROVZ YL BcRd) > 1480 
oc (AB oc Ag Hi ; ata RO, 12(R9), 12(NEWMVL) : 
57 24 «OA f V 36(R8), MVL_ADDR : 1484 
et tins st dy Me 
6E 6708 7E 44 1%: MOVAQ (AVL app) tid. (SP) a 
06 20 6E 00 2€ 00048 MOVCS #0, TSP), #32. #6, a0(SP) : 


; Routine Size: 


E3 


112 bytes, 


9E 
» i 
00006 gf 


Routine Base: 


07 A7 


oo 
NO 
> 
~ 
foro 
@o—00or —- Oram 
oo noo"o~o~ 


fSowvonr “oom 


SCODES + 0416 


PEO OO UMIMIINE & 


a 


RON 98 POWs 


te 


11 
“$ 
at) 


1980 P8:f8i2 


PUSHAQ 


AX-11 BLi jets 32 V 
MTAACP. SRC mOGVOL 

7(MVL ADDRICI] 

#2, atsP 

7 (AVL ADDADEII 

#1 atsP) 

R10, ij 

NEWA vi’ (CURRENT_VCB) 


#i, owe ieee 
NEWM 


38 
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33 


| 16-Sep-19 4 O¢:¢ 


:33 AX-1 
14-Sep-1984 44 


oe BI 


$e 


ey v4.0- 
RC 


5 1 74 
6: MTAACP. MOUVOL .B32; 


H rad } ? } ROUTINE CREATE_LABEL (VOL, MVL) : COMMON_CALL = ; } 
; .999 1505 1 !+4 3 3 
; 1000 1 $ 1! 3 1 
: 1901 120 1 | FUNCTIONAL DESCRIPTION: :] 
3; 1 ¢ 1508 1! This routine will create a label for a given volume if it does not ; 1 
; 100 1298 = 3 already have a label. It does this by getting the first four characters :] 
+ 1004 1510 1! of the label from the MVL of the previous ree! in the volume set; 2] 
; 1005 131) }? pessoas the blanks with the underscore character and putting in the 2] 
: 1006 1 \¢ 1 i VN of the current reel as the last two chars. This means :] 
; 1007 1515 1! that only up to 99 different labels can be generate for a given volume ‘ 1 
; 1008 1314 1! set. i] 
: 100 1515 1! :] 
; 1010 1218 1! :] 
; 1011 1517 1 ! CALLING SEQUENCE: 3 1 
3 Iie 1218 CREATE_LABEL(ARG1,ARG2), CALLED IN KERNEL MODE ; ’ 
; 1014 1520 1 ! INPUT PARAMETERS: 3 1 
3 1015 1521 1! ARG1 = volume number : 1] 
; 1016 iF é 1} ARG2 = address of magnetic tape volume List sf 
; 1018 1524 1! IMPLICIT INPUTS: 7] 
; 1019 3 ; CURRENT_VCB = address of current volume control block : } 
; 1031 1527 1 ! OUTPUT PARAMETERS: : 1 
; 10 ; 1528 1! NONE 2] 
; 102 1399 1! 27 
3 1024 1530 1 ! IMPLICIT OUTPUTS: : 1 
3 1025 1531 1! MVL for the current reel is given a Volume Label 71 
; 1026 1338 1! i] 
3 1027 1533 1 ! ROUTINE VALUE: 7] 
; 1028 1534 1 | True : The Label could be generated a 
; 1968 12g? ! False : The label could not be generated et 
; 1031 1839 1! SIDE EFFECTS: : Y 
; 1038 1538 1! NONE > 

; 103 1539 1! 3 | 
; 10 1540 1 !-- : 

; 1035 1541 1 : | 
; 10 1266 2 BEGIN : 

: 1037 154 : 1 
; 1038 1544 EXTERNAL REGISTER :] 
; 1039 1545 COMMON_REG; i] 
1040 1346 : | 
3: 1041 154 MAP “ ° 

3 1042 1548 MVL : REF BBLOCK; ! addr of mag tape volume List :] 
; 1043 1549 : 1 
3 1044 1550 LOCAL 7] 
; 1362 1551 : : 
; 1 $ 1336 CUR_MVL_ADDR: REF BBLOCK, : 

3 104 155 ! address of MVL control block 31 
> 1048 1334 PRE_MVL_ADDR: REF BBLOCK, 33 
; 1049 1555 ! address of MVL control block a 
: 1990 1328 LABEL_ADDR : REF VECTOR C,BYTE), ' Place im label top reel numb 3 } 
: 19 1 155 NUMBER_OF TAPE, ' Number of current reel mod 3] 
3 1936 1228 DESCR = VECTOR (2); ! Descr for FAO string : ' 


16500-1984 98:63:22 el Bliss-32 V4.0-74 Page (3 


a fhe number of he previous volume 
an 
! are using must be the first volume in the ree 
IF (.VOL=1) LEQ 0 THEN RETURN FALSE; 
! Get the individual MVL portion of the MVL block 
1 


2 


CUR_MVC_ADDR C MVL$T_VOLLEL J); 


Check thru the new Label for blanks and overwrite them with the underscore 
character. 


LABEL_ADDR = CUR_MVL_ADDR C MVL$T_VOLLBL ]; 
DECR T FROM MVL$S_VOCLBL TO 2 DO 
. ADDR-C. : 
THEN LABEC_ADDR C .1 J = %C'_'; 


Now check to see if the RVN of this reel is greater then 99 decimal. If 
it is then set it to the RVN modulo 99. 


NUMBER_OF TAPE = .VOL; 
IF_.NUMBER_OF_TAPE GTR 99 
THEN NUMBER-OF_TAPE = (.NUMBER_OF_TAPE MOD 99); 


Set up the descriptors for the call to FAN and call FAO to convert the number 


S88587 


ViFWN—OOONOULSWN O00 


-Sep-19 244 MTAACP.SRCJMOUVOL .B32; 

054 60 ' 3 3 
0 5 3 } f that volume number is less than 0 then, the current volume we ‘ : 
; iy : 
BO : 
061 83 ! and move he first four chars of the previous reel's Label into 3] 
06¢ 268 ! the current reels’ Label : } 
is PRE_MVL_ADDR = .MVL + MVLSK_FIXLEN + ((( .VOL=1 ) = 1)_* MVLSK_LENGTH); 33 
71 CUR“MVL-ADDR = .MVL + MYL Sk FIXLEN + (( ,VOL=1_) * MVLSK_LENGTA); 7] 
276 CHSMOVE™((MVL$S_VOLLBL=2), PRE_MVL_ADOR [ MVLST_VOLLBL J, :1 

574 

gf? 

379 


oooo°0o oo 
BOOS III IN IS 


to an ASCII string and insert it into the label field in the MVL of the 
current volume. Then set that the MVL is used and return to caller. 


Sowe 


DESCRtO, = 2; ! Size of output buffer 
DESCRC1) = CUR_MVL_ADDR C MVLS$T_VOLLBL J + (MVL$S_VOLLBL-2); 
! Addr of output buffer 


o 
Oo 
UEWN— 


SYS$FAO (DESCRIPTOR ("!27B"), 
DESCR 
-NUMBER_OF_TAPE); 
CUR_MVL_ADDRC MVCS$VZUNUSED } = 0; 
a RETORN TRUE; 


SSO 


a ee ee ee ee ee De ee ce ee ee ed ed ed ed ed 


a ee td ed dd = dd = wd 8 
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= 


86 P.AAD: .ASCII \!2ZB\ ; 
-BLKB 2 

LONG 4 

-ADDRESS P.AAD : 


0004 00000 CREATE_LABEL: 
«WORD Save R2 ; 1503 
5E 08 2 00002 SUBL2 #8, SP ; 


1b-5¢ Sep-1 :33 AX-11 Bliss-32 V4.0-742 
1 att 7 96: £2: :44 MTAACP. SRCJMOUVOL B32; 1 
01 04 Ac s CMPL —*VOL, #1 
68 if 88 BLEQ tg 
0 04 aC p 0B MOVL VOL, 
1 8 BC4 t OF MOVAQ SmyCER J, PRE_MVL_ADDR 
1 14 C 4 ADDL2 #20, PRE MVL_ADDR™ 
08 B40 3 7 ROVAG an ccrol: - CUR MVL_ADDR 
$1 D iF MOVL (PRE_M Ave “RDDR) (CUR_MVL_ADDR) 
2D MOVL § CUR_AVL_ADDR, CLABEL_ADDR 
1 0 2 MOVL #6, 71 
20 614 91 i 8 1$: CPE (ISCLABEL_ADDR], #32 
51 ce ae 7 e “6 O08 Ait nt Pg tS 
50 04 AC DO 000A MOVL VOL, NUMBER_OF_TAP 
00000063 BF 30 DI 00035 cMPL NUMBER_OF_TAPE; #95 
00 50 0 7A tired EMUL NUMBER _OF_TAPE, #0 
50 aE 00000063 BF i s0035 = EDIV 138, (SP) +7 NOMBER_ OF OF APES PNUMBER _OF_TAPE 
04 AE 04 5 9— 00058 OVAB 4(CUR_MVL_ADDR), DESCR+4 
50 DD 0005p PUSHL NUMBER_OF ~TAPE 
04 AE 9F 0005F PUSHAB DES 
91 AF BF Oooee SUSHAB PcAac 
000000006 9F 04 FB 00067 CALLS #4, @ASYSSFAO 
07 A2 02 8A 0006 BICB2 #2. 7(CUR_MVL_ADDR) 
50 01 00 00078 MOVL #1. RO 
04 0007 RET 
50 D4 00076 4$: CLRL —RO 
04 00078 RET 


; Routine Size: 121 bytes, Routine Base: S$CODE$S + 0494 


; 1098 1604 1 
3 1099 1605 1 


— +» —s > — > ss 3 
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AX-11 Bliss-32 V4.0-7 Page 34 
MTAACP.SRCJMOUVOL. B35: (1 


ROUTINE ASSUME MOUNTED : NOVALUE MVL_UCB = 


'e¢ 
i 


SELES 


PAPAS 
SPIN IPININ III INI 3 at at at tk kk tt tt kk kk kk kh hd tt 


IAPOIPOPOPOPONIPOPofnoengd 


ROUTINE i 


SIDE = 


1 i FUNCTIONAL DESCRIPTION: 

1 i This routine indicates that the volume is mounted 
2 and sets position pointers to the beginning of tape 
61 i CALLING SEQUENCE: 

2 ASSUME _MOUNTED(ARG1), CALLED IN KERNEL MODE 
61 i INPUT PARAMETERS: 
sedi sow 
6 i IMPLICIT INPUTS: 
6 i MVL_ENTRY = address of current rel volume entry in mvl 
? CURRENT_VCB = address of current volume control block 
6 i OUTPUT PARAMETERS: 
6 NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
ie 


BEGIN 


EXTERNAL REGISTER 
MVL_ENTRY = 9 : REF BBLOCK, 


at ak et ee th nh oh ah ad ad ab abtohted 
DNAWUVES WN HO OO NAUES WN $0 OONAUE WN (OOO NOUS WIN 


MVL_ENTRY C_MVLSV_MOUNTED J] ' set it mounted 
CURRENT_VCBLVC 
VCBSE _5T RECORD 


VCB$V_LOGICEOVS 


nunun 
ooo— 


CURRENT “VCB 
CURRENT_VCB 
END; 


3 11 
s 11 
3 11 
3 11 
3: 11 
3 11 
3 11 
3 11 
3 11 
3 11 
3 11 
s 1 
3 11 
3 11 
3 11 
3 11 
3 11 
3 11 
s 11 
3 11 
3 11 
3 43 
3 11 
3 11 
3 11 
311 
311 
311 
3 (11 
s 93 
3°11 
3 11 
3 11 
3 11 
s 33 
3 11 
3 11 
3 11 
3 11 
3 11 
311 
3: 11 
3 11 


1 

5 
$s 
08 
09 
10 
1 
i 
14 
15 
16 
17 
18 
19 

0 
; 

4 
: 

6 

7 
28 

9 
: 

1 
x 
: 
i 
s 
i 
40 
$3 
i 


Od dd 
APHAAPAPSPOPOAAAAOAAAAAAAAH 


Sat at 


! end of routine ASSUMED_MOUNTED 


0000 00000 ne 


. Save_nothin : 1606 

07 «Ad 8 2098 BISB2 #1, 7(MVL_ENTRY) > 1644 
ee AB 4 CLRB © 46 (CURRENT_\'CB) > 1645 

$5 AB 9009 CLRL 68 (CURRENT vCB) > 1646 

0B AB 0 A it B1cB2 #2, 11(CURRENT_VCB) ; \o) 


Routine Size: 17 bytes, Routine Base: S$CODE$S + 050D 
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SMOUVOL 1832; 
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' translation table for ANSI ‘a’ char 


. 
°o 
co 
«e 
. 
o) 
a *. 
o Lon} 
a w 
= i 
we 7 
@ 
~ 
2 
) 
wo bo’) 
@ on | 
— ba wo 
a uw [mn] -O 
co oa >> 
c = @ w @ i 
a N Ld ” 
- > Sad 
— =| wn @ wi a 
a w . => e 
2 =z ao] bw 4 . <= co 2 
a L. 4 Cc rw) o od 
~ w a — o =) Rw - o 
Ms a at v =x > 
u“ a ea 2 @ « wa w a 
vas z t=) C.) @ O-e >o - &§ wo 
@ - — © a mw - ‘oo waz 
v “ . “ We ww ”no => ~JO 
= 4) Qa rm) a a w ws > ww = ow 
y =) w we 5 2 « >o@ e> 'i—- > 
—_ . — Ee § —_— ® 2 
> -oO ah ~~ oe oo oe oe o> 2 ry, 
= zev a 3 °o c ~ &© Are 
oe Y o > q-— JF 
oo — 2 = o > 1 
— a _ e Oo «co ws =- ee 
_) ae — — hd a _ w — © a 
@ —c -@ o- oe w -@ . = ee ot pe ed 
a eo- wt Ww -e& = ne a ” “©2 a os) = = <2 
a we wte ” w oma — Pw ft mw - 
[- 4 “"535— 2a lw -. >e oe occa [+ «J. 4 me ao o 
oO wo wo e- >Oo w asx wo - we 8 el 7 n 6¢€ = 
-_ oft D> w aw = -+ => ” 25 <x a oe ~a 
zt o<« = ze >See ” w Ba —_ 6 - — >a 2 
< af we wet @w Oc 425 ww aw J —— 8 a > _—- 
w <--—- Vw « e® <« ao >— we os ; FS soy cz qo =~ —w © 
a zx & <= -a a -@ oso /“é < > 3° Qw ze =* w 
oO or a -O =z we wz eZ 2 @eve adw JjOrF - « @ 
_ 2 YL oe vu z w w — w w 4 ‘££ mw 
w — ome al — z _ — oOo - od rs) « i=) ww 
z v _ > | ad od uw a w x =< oO a = 
- z _ a & _ a 3 a w oOo w w a) So sw 
- — < 2 a = “~ Wn 
BP wee wrmr wee rmrererereseseses@ererereser@ereresecesesaesmces 
Se el el el el ee ee el el el el el ee ek el ed ed ed ee eh ed b* LD LD LD LL LD dD Le Le he eh oD el al) 


oo RL PEPFR. DDO DADDDDDDDOOOOAOAARAOOOOOO 


A ce cel ee cel el eel el cel ee el el el el el ee ele ce el eh el ee el el ee ee ce a ce ee cel oe ce cel ck el ce el cl el ol el cel el oe 


NOP DHOK—UMTMNOP- DOO CMT POM UM TMNOR. DOO UM TMOR 5 ath Dall be Ss. - 
FIT TITNMMNMNMNNNNN OOOO DSDOORERALAKENAR DODODOGOOOS OOS Sooo es 
LLL ONIN 
Se el el cel el ee ee et el ce el el ee ee el ee ee ee ee ee ee ek ek el ek el ek eh eh et ee ed ee ee ee dl 


Nia Nl i De id Ree elt ed Re teh te ee ee eh eh ee eh hh ed eS et et St Od ed dO ek ed ed Od Oe ee ed Oe ed Oe Oe 


VO%~000 


3; Routine Size: 


SSLESESS 


— — Ys ss 


7 
VEWN—O 


0000G CF 


$ep-1984 02:25:33 AX-11 Bliss-32 V4.0-7 
16-ep-1944 96: 6:44 MTAACP. $Re MOUVOL. B35: 


i translate the Label into upper case and test for invalid characters 
3 ir 0 NEQ MOVTUC ( PAILSE. MAILCOPCSL_MS_TEXTJ, ESC_CHAR, ANSI_A_BAD, 
17 MVL$S_VOLLBC )> TEMP_LABEC ) 

44 ee RETURN INITS _ATLBLNONA 

ar; 4 ath 

44 4 CHSCOPY ( rey Sz, TEMP_LABEL, ° 

1714 4 LLBL SVL LEN EATRY ‘t MVLST_VOLLBL J ); 

1715 4 MVL_ENTRY f VAvesy aren 

1716 4 RETORN 1; 

171 3 

1718 END; 

1719 END; ! end of routine OPERATOR_LBL 


.EXTRN ANSI_A_BAD, ESC_CHAR 
007¢ 00000 OPERATOR.LBL : 


~WOR Save R2,R3,R4,R5,R6 
56 00006 CF £5 886 00 MOV MAILSZ, R6 
5 08 SUBL2 # 
5 8C AG i 300K MOVAB MAIL+8, OPR_INPUT 
06 66 01 O000E CMPL  MAILSZ, #6 
08 18 0011 BLEQU 1$ 
50 00758104 8F pO 0015 MOVL #7700740, RO 
00006 CF BC AG 66 F 00018 1$: MOVTUC MAILSZ, MAIL+B, ESC_CHAR, ANSI_A_BAD, #6, ~ 
6E 0 0025 TEMP_LABEL 
9 1D 00027 BvS 2s 
D4 00 9 CLRL 
51 D5 00028 2$: TSTL Ri 
08 13 00020 BEQL «38 
50 0075810C 8F v6 00 f MOVL #7700748, RO 
20 6E 66 eC 00 t 3$: MOVCS MAILSZ, TEMP_LABEL, #32, #6, (MVL_ENTRY) 
07 a9 OS 8A 00030 BICB2 #2, 7(MVL_ENTRY) 
50 01 00 00041 MOVL #1. RO 
04 00044 RET 


69 bytes, Routine Base: S$CODES + OS5IE 


Pepe 47 
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; ' } 17 9 ROUTINE CHECK_RING : COMMON_CALL = 

18 178} sss 

: 1221 1724 1 | FUNCTIONAL DESCRIPTION: 

: : § \f 5 ! Check to see if the write ring is in the tape. 

> 1226 17 3 1 | CALLING SEQUENCE: 

; 5 v7 8 CHECK_RING () 

:1 5 17 0 1 | INPUT PARAMETERS: 

3 } $ If 1 ! none 

: 1230 1738 1 i IMPLICIT INPUTS 

: 1231 1734 1 iy URRENT VCB = address of current volume control block 
; ' : 7 5 O_CHANNEL = ACP IO channel 

:1 17 § 1! ouTPuT PARAMETERS: 

: 15% He 

: 1 1740 1! IMPLICIT OUTPUTS: 

: 1$86 es seas 

> 1240 1508 1 | ROUTINE VALUE: 

: 1241 1744 1 - the volume is Hardware write lock ( NO RING ) 
3 : ¢g rt? : 1 = the volume is NOT Hardware write lock ( RING ) 

: 1266 1709 1 | SIDE EFFECTS: 

+ 1245 1748 1: 

> 126 1749 1: 

: 1246 1750 1 i- 

> 1248 1751 1 

; 49 1738 BEGIN 

> 1251 ibe EXTERNAL REGISTER 

: 1588 1786 eaten di 

:1 7 1789 EXTERNAL ROUTINE 

> 1255 1758 ISSUE _10 : LSISSUE_10; 

: 188% 1380 EXTERNA 

> 1258 1761 10, STATUS : Rf 3. LONG J, ! QI10"s Status 
3 : 4 1796 USER_STATUS : vee TOR LONG J; ! User's Status 
: 1261 1764 LOCAL 

3 } $6 1°62 STATUS : LONG; ' status of 10 
; ' ee 1787 ! get at the information nicely 

:1 66 1769 BIND DEVICE_DEPENDENT = IO_STATUS C 1) : BBLOCK; 

: 188 1399 

: ' 69 \77¢ ! do a sensemode operation 

: 4 ae STATUS = ISSUE_I10 ( IO$_SENSEMODE, 0, 0 );: 

: 1 ig 1776 IF NOT .STATUS 


—_——— 


1b-ep-1964 99:25:35 yarett aLiaga82 v4.0-74 Page 39 


° 


3 if 1 4 THEN 
5 1275 1 3 BEGIN 
: 1 i: 177 USER “STASER} = STATU 
: 127 1780 USERSTATUSL1) = CPREADERR: 
31 8 1781 ERR_EXIT(); 
: HE e 
: 1 e} 1784 RETURN NOT (.DEVICE_DEPENDENT C MT$V_HWL J); 
3 1282 1785 END; ! end of routine CHECK_RING 
.EXTRN ISSUE_10, USER_STATUS 
0000 00000 CHECK_RING: 
. WOR Save nothing $ \7e 
7 7¢ 00002 CLRQ = = (SP) + 1774 
: pp 00 PUSHL #39 F 
00006 00 BSBW =: ISSUE_IO ; 
SE ¢ CO 0000 ADDL2 #1 : 
OE cs 000¢ BLBS STATUS, 1$ : 1776 
00006 CF 0 b OOF MOVL STATUS. USER_STATUS + 1779 
00006 CF 0888 BF 3C 00014 MOVZWL #2184, USER_STATUS+4 + 1780 
: 00 BF 0001B CHMU + 1781 
50 00006 CF 01 Q EF 0001D 1$: EXTZ2V #3, #1, DEVICE_DEPENDENT+2, RO + 1784 
0 0 de 90024 MCOML RO, RO ; 
04 00027 RET + 1785 


3; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0563 
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ROUTINE CHECK_ACCESS < FLAGS ): MVL_UCB = 


tee 


' 
FUNCTIONAL DESCRIPTION: 
this routine check the user's access rights to a tape reel 


SSS 


UPwn— 


CALLING SEQUENCE: 
CHECK_ACCESS ( ARG! ) 


INPUT PARAMETERS: 
ARG1 = the mount_volume flages ( passed by value ) 


SSAA 


Oo 


IMPLICIT INPUTS: 
This routine assumes that the opereter has reseones to the MTAACP via 
the REPLY command and that MAILLOPCSW_MS_STATUS] is set to some value 
according to that responce. 


OUTPUT PARAMETERS: 
NONE 


LESRAVLS SELF 


3; 1 1 1 : 
3 3 1 1 ‘ 
3 1 1 1 ° 
3 1 1 ° 
3 1 1 1 ; 
3 1 1 1 ; 
3 1 1 1 ; 
s 1 1 1 : 
3; 1 1 1 ; 
3 1 17 1 3 
3 1 17 1 ; 
3 3 17 1 3 
: 1833 | : 
3 1 is 1 F} 
3 1 Ht 1 : 
: 180 | 
3 1 18 1 3 
3 1 18 1 s 
3 7 18 1 F 
3 1 1308 1 IMPLICIT OUTPUTS: 3 
3 ; 4 1393 ' MVL_ENTRY C MVLSV_OVERIDE J] is set correctly : 
3; 1309 1811 1 ! ROUTINE VALUE: : 
3; 1310 13\¢ 1 TRUE = if the uses has the needed rights to access the tape $ 
3 1311 181 1 FALSE - otherwise : 
3 7 \¢ 1814 1 3 
3; 131 1815 1 ! SIDE EFFECTS: 3 
3 1314 1 1g 1 NONE 3 
3; 1315 1817 1 3 
3 7 ig 1818 1 ! USER ERRORS: 3 
3 131 1819 1 NONE : 
3 1 18 1820 1 3 
3; 131 1821 1 !<- F 
; 1320 18 § 1 F 
3; 1321 iS BEGIN 3 
3 1 § 1824 3 
3 1 1825 P $ 
3 ‘ $e : § FLAGS : BBLOCK; : 
3 1 36 1s 8 EXTERNAL REGISTER 3 
$ : 3 : > MVL_ENTRY = 9 : REF BBLOCK, ! addr of MVL entry for current vol . 
3 1 1 § EXTERNAL ' translation table for ANSI ‘a’ char $ 
; ’ 1 133 ANS1_A_GOOD : VECTOR C , BYTE J; : 
31 5 1835 LOCAL 3 
3 1 1 § ACCESS ' Access to tape from S$MTACCESS : 
; 13355 1 CURRENT _RECORD, ! current record tape drive is reading : 
3 1 1 DEVCHAR : REF BBLOCK, $ 
2 1 1 TEMP_LAREL : VECTOR C VL1$S_VOLLBL, BYTE J, . 
31 1840 TAPE _OWNER_STS : LONG, 3 
3 1 1841 VMS_TAPE, 2 
3: 1340 1 45 STATUS : LONG 3 
> 1341 184 ORB : REF BBLOCK, ! ORB address : 


1B-Fep-1984 02:25:55 yaret! BL ieg=52 44.0274 


. 


REF BBLOCK, 
4 SCRATCH REF BBLOCK 
WRITE_RING BITVECTOR (1); 
EXTERNAL 
HDR : REF BBLOCK; ! address of HDRI(EOF1) Label 


! get a handle on the current MVL 

MVL = .CURRENT_VCBCVCBSL_MVLI; 

! setup address of scratch area and read the VOL1 Label 
SCRATCH = .HDR1 + SCRATCH_OFFSET; 

! setup default tape owner and protection 


ORB = _ CURRENT UCBCUCBSL_ORB); 
TAPE_OWNER L* .ORBCORBSL_OWNERS; 
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368 r¢: TAPE_PROT 
3 bed ! read the first block on the tape 
8 se8 STATUS = READ_BLOCK(.SCRATCH, ANSI_LBLSZ); 
; 370 ! if this is { a NOT valid ANSI tape) 
a0 1h; IF NOT ( .STATUS AND (.SCRATCHCVLISL_VLILID) EQL ‘VOL1')) 
HE 874 BEGIN 
3 875 
R a76 ! AND a valid init THEN RETURN 
32 878 IF ¢ (. MAILCOPCSW_MS praruty EQL (OPCS_INITAPE AND %X'FFFF")) 
Tad 879 OR .CURRENT VCBIVCBSV 
% rt] AND (NOT (.FCAGS mOUsV ~(BLCHECK) OR .FLAGSCMOUSV_CHKIFSPC))) 
oa6 
1 88 BEGIN 
¢ 884 KERNEL CALL ( SET_MVL_OVERIDE, TRUE ); 
8 RETURN TRUE; 
: 8 END 


' else it is an error 
ELSE 
PRINT_OPR -S6(MOUNS NOTANS! 
DEQNAM_ Nehera: CVT_DEVNAM) ; 
RETURN FALSE: 
END; 
END; 


' Set the override switch in this volumes portion of the MVL. 
! If the user has specitied override privilege in the MOUNT command. 
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14-Sep-1984 
KERNEL_CALL ( SET_MVL_OVERIDE, .MVL C MVLSV_OVRPRO J); 


oa og * peereprpse tty system service to check the accessibility char 
rout! keep the record that the UCB is reeding, The sccqpp tone ety 

ne can not move the tape from under us! Thus we will compare 

s to the field Slesr the call and if the A... was moved we punt 
this operation. Then check the codes that the routine can return 
to make sure the user has access to the tape. 


CURRENT =PECORD = KERNEL. ¢ CALL (GET_RECORD, .CURRENT_UCB); 
ACCESS = $MTACCESS(LBLNAM = .SCRATCH 
BCORBSL_OWNE 


UIC = .OR ER} 
STD_VERSION = ,MOLCMVL$6_STDVER], 
ACCESS_CHAR = 
ACCESS-SPEC = MfASK_NOCHAR, 
TYPE ="MTASK_INVOL1); 
STATUS = KERNEL CALL(GET_RECORD, .CURRENT_UCB); 
EQ .STATUS 


IF CURRENT. RECORD N 
BEGIN 


PRINT_OPR_MSG( nouns TAPEPOSLOST,O, 
T_BEVNAM_LENGTH, CVT_DEVNAM); 
ttn FALSE; 


IF .ACCESS EQL SS$_FILACCERR 
IF was © ‘e - CURRENT _VCBCVCB$V_OVRACC] AND .MVL_ENTRYCMVLS$V_OVERIDEJ) 


EGIN 
PRINT_OPR -NSGCHOUNS ACCERR 
_DEVNAM_ fenetn, CVT_DEVNAM) ; 
RETURN FALSE; 


ND; 
ACCESS = SS$_NORMAL ; 
END; 
IF oreo EQL SS$_NOVOLACC 
BEGIN 


PRINT_OPR -MSG(MOUNS NOVOLACC 
_DEVNAM LAENGTI: CVT_DEVNAM) ; 
yp RETURN FALSE; 


IF “Peress EQL SS$_NOFILACC 


BEGIN 
PRINT_OPR -MSG(HOUNS NOF ILACC 
_DEVNAM LAERGTH. CVT_DEVNAM) ; 
up RETURN FALSE; 


Se 


16- S019 os t 98: 5:33 AX-11 Bliss-32 V4.0-74 
6:44 MTAACP.SRC JMOUVOL .B32; 


N 12 
16-Sep-1984 02:25:33  VAX-11 BLiss-32 v4.0-74 
erseemt SR MSieeizz | HANAAL Ok isa de MSOs rhe 


. 


4 $ 9 ! Find out whe owns the tape. If the Hielé i in VMS format then 
? ! treat the field Like the protection field in the VOL2 Label. 
4 § 1 TAPE_OWNER_STS = (TAPE_OWN_PROT ( TAPE_OWNER, TAPE_PROT, 
460 366 TORBCORBSL_OWNERT, .SCRATCH J); 
188 964 ! Set the override switch in this volumes portion of the MVL. 
46 965 ! If the users UIC matches the UIC of the volume or the user 
tee 308 ! has priv. 
P 1968 KERNEL_CALL ( SET_MVL_OVERIDE 
2 S34 ( 


C TAPE _OWN R EQL .ORBCORBSL_OWNERJ) 
OR .MVL CMVLS$V_OVRPRO J)) 


If the ACCESS field allows to check the VMS volume protection then 

do so using the Tol Lowing rule: 

If the owner identifier field of the VOL1 Label was not a VMS pretest ten 
and this is a pre ANSI standard version 4 tape and there was DZ INFO 

in the volume field then make sure that the user has the correct priv's 
to mount the cape. 

Else reset the VMS protection such that the user has complete access. 


IF .ACCESS 
THEN 


tat et et et tt hte et 


BNA OSBORN OOo Ue. 


EGIN 
IF NOT .TAPE_OWNER_ STS 
AND ( NOT” (. CURRENT YCBCVCB$V_OVRVOLO] 
AND .MVL_ENTRYCMVL$V_OVERIDE))) 
BEGIN 
PRINT _OPR_MSG(MOUNS_VOLOERR,0O,.CVT_DEVNAM_LENGTH, CVT_DEVNAM) ; 
Pl FACSE; 
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END 
ELSE 
TAPE_PROT = 0; 


! Check to see if this tape was created on VMS. If it was then we will 
! want to process to VOL2 label if there is one. 


IF CHSEQL(10,STARID,10,SCRATCHCVL1$T_SYSCODE},0) 
THEN VMS_TAPE = 1 
ELSE VMS_TAPE = 0; 
' Read the VOL2 Label if specified and use this as the VMS protection 
! for the tape, unless the ACCESS is set such that the user has complete 
' access to the volume. After we have read the VOL2 label we want to be sure 
! to reposts on the tape back to teh VOL1 Label to continue processing 
! the ANSI VOL1 Label. 


STATUS = READ_BLOCK (.SCRATCH, ANSI_LBLSZ); 
IF VMS, TAPE AND SCRATENEVLOSL VES TD Eat "voL2" 
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IN 
PROCESS VOL2_LABEL (TAPE OWNER, TAPE_PROT 

-ORBCORBSL_OWNERT, .SCRATCH); 
IF NOT .ACCESS 
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THEN TAPE_PROT = 0; 
END; 


! Set the tape back to the begining and reread the VOL1 Label. 
IF NOT REWIND_AND_WAIT() 
THEN 


EGIN 
PRINT _OPR_MSG(MOUNS_IOERROR,O,.CVT_DEVNAM_LENGTH, CVT_DEVNAM) ; 
RETURN FALSE; 


END; 
STATUS = READ_BLOCK (.SCRATCH, ANSI_LBLSZ); 


! Translate the VOL1 Label into upper case and put in '@' for any non-ANSI 
! a characters found ( this is done for backward compatiblility ) 


CHSTRANSLATE ( ANSI_A_GOOD, VL1$S_VOLLBL, FERAT ERA YL 197 VOLLEL, —_ 


VL1$S_VOLLBL, TEMP_LABEL ); 


! Labels spec either generated buy the MTAACP or supplied by teh oper 
+ must match except under the fol oving, £ircunstences: 

! A valid “REPLY/INIT’ or ‘‘MOUNT/INI 

} A valid no label need be specified 


INA NAIA OPOPURPOPINUPUPUN 2 ee 
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OOCOCCOCCOSCOOOOOOOOOOOoOoOoOoO 
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36 

¢ 20 ! A valid 'MOUNT/OVER=ID' 

8 204 

39 204 IF 

40 204 eCtd 

41 04 OR .FLAGSCMOUSV CHKIFSPC 

g 04 OR ( NOT .CURRENT_VCBLVCB$V_INITJ 

4 04 AND (.MAILCOPCSW_MS STATUS) 

44 204 EQ (OPCS_INITAPE AND %X'FFFF'))) 

45 204 

46 204 AND 

rtf soe NOT (.FLAGSCMOUSV_CHKIFSPC] AND (NOT .LABEL_SPEC C 0 J)) 

rs 205 NOT (.CURRENT_VCBCVCB$V_OVRLBL] AND .MVL_ENTRYCMVLSV_OVERIDE)) 

51 05 AND CHSNEQ ( MVLSS_VOLLBL, MVL_ENTRYCMVLST_VOLLBLI, 

2g soe VL1$S_VOLLBL, TEMP_LABEL ) 

54 05 BEGIN 

55 05 PRINT NOT _LABEL(.MVL_ENTRY); 

2 B28 RETURN FALSE; 
05 END; 

58 060 

59 Be! ! check VMS volume UIC protection or user has bypass, sysprv or volpro 
068 DEVCHAR = CURRENT_UCBCUCBSL_DEVCHAR]; 


WRITE_RING (OJ = TDEVCHAR <SBITPOSITION(DEV$SV_SWL) ,1>; 
IF NOT ( KERNEL_CALL ( CHECK PROT. TAPE PROT, TAPE_OWNER, 


WRITE 
OR .MVL C MVLSV_OVRPRO J 
THE 
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PRINT_OPR_MSG(MOUNS_NOPRIV, 0 
.CVT_DEVNAM_LENGTH, CVT_DEVNAM); 
RETURN FALSE; 


! set override switches are valid in the MVL if a valid init 
DEVCHAR <S$BITPOSITION(DEVS$V_SWL) ,1> = svelte RING (CO) ; 

IF NOT (.FLAGSCMOUSV_LBLCHECK] OR .FLAGSCMOU V_CHKIFSPC)) 
THEN KERNEL_CALL ( SET_MVL_OVERIDE, TRUE ); 


RETURN TRUE; 
END; 
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.EXTRN ANSI_A_GOOD, HDR1 
TEXTRN SYSSMTACCESS 


OSFC 00000 CHECK_ACCESS: 
- WORD 


! end of routine CHECK_ACC 
Save R2,R3,R4,R5,R6,R7,R8B,R10 ; 1787 
SA 0000" CF i: 0000 MOVAB CVT_DEVNAM, R10 : 
BE 0c C2 0000 SUBL2 #12 : 
§ 34 AB DO OO00A MOVL 3¢ (CURRENT _VCB) . MVL + 1854 
54 00006 CF 00000140 8F C1 0000E ADDL3 #320, HDR1. SCRATCH : 1858 
50 00006 CF DO 00018 MOVL § CURRENT_UCB, RO + 1862 
t4 1¢ AO DO 0001D MOVL  28(RO),~ORB : 
FO AA 66 D0 00021 MOVL § (ORB), TAPE_OWNER + 1863 
FG OAA 34 990 5 CLRW = TAPE_PROT + 1864 
7E 50 8F 9A 00028 MOVZBL #80,~-(SP) : 1868 
54 DD 0002C USHL SCRATCH : 
00006 CF 02 FB 00 : CALLS #2, READ BLOCK F 
58 50 D0 000 OVL RO, STATOS : 
09 58 £9 00036 BLBC STATUS, 1$ : 1872 
314C4F56 BF 64 D1 00039 CMPL (SCRATCH), #827084630 : 
2B 13 00040 BEQL : 
81D3— BF 00006 CF B61 0042 1$: CMPW 30s MAIL+2, #33235 : 1878 
93 12 0004 BNEQ $ : 
02 : 31 90048 38: BRW 1$ ; 
OA 2D «AB 03 €1 OO4E $: BBC #3, 45(CURRENT_VCB), 4$ : 1879 
05 04 AC 01 €EC 0005 BBS #1, FLAGS, 4 : 1880 
EE 04 AC 02 €1 00058 BBC #2. FLAGS. 2$ : 
SA bp 00050 4$: PUSHL 1 : 189 
7E 10 AA 9A 0 F MOVZBL CVT_DEVNAM_LENGTH, -(SP) : 189 
7E D4 63 CLRL -=(SP > 189 
007280FC BF DD 0006 PUSHL #7504124 ; 
6A 11 00068 BRB : 
A7 01 1 EF 00 $ 5$: EXTZV #1, #1, 19(MVL), -(SP) : 1901 
gi DD 000 PUSHL #1 : 
E bb 7 PUSHL SP ; 
0000v cf F 0007 PUSHAB SET_MVL_OVERIDE ; 
000000006 9F 4 FB CALLS #4, ~a#SYSSCMKRNL : 
00006 CF DD PUSHL CURRENT UCB ; 1911 
1 0D PUSHL # ; 
E pD PUSHL : 
00006 CF 9 A PUSHAB GET_RECORD : | 
000000006 9F 4 FB OGOBE CALLS #4, ~a#SYSSCMKRNL ; 
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13-808-1 3b 98 Ritz MTAACP. SRC IMOUVOL .B32: ° ES: v04 
52 0 pO 9009 MOVL RO, CURRENT_RECORD ; ; 
3 Re 3 38 CLRO 0 = §p) ‘ : 1917 : 
re ps 9A CLRL = = (SP) : ; 
7E 22 A? 9a 0009 MOVZBL 34(MVL), =(SP) : ; 
$6 DD OOOA PUSHL (ORB) : : 
4 DD OO0A PUSHL SCRATCH : : 
000000006 99 06 FB AG CALLS as, SYSSMTACCESS : ; 
D AB OVL RO, ACCESS ; : 
00006 i DD a PUSHiL CURRENT _UCB + 1919 ; 
E pp B PUSHL SP ; ; 
00006 CF 9F : B6 PUSHAB GET_REC : : 
000000006 9F 4 FB BA CALLS #4, ~@#SYSS$CMKRNL : ; 
58 0 dO 000C1 MOVL RO, STATUS : ; 
58 2 D1 000C4 CMPL CURRENT RECORD, STATUS + 1920 ; 
10 13 000C7 BEQL F : 
5A DD 900¢9 PUSHL R10 > 1923 : 
7E 10 AA 9A 0 OCB MOVZBL CVT_DEVNAM_LENGTH, -(SP) + 1924 ; 
7E D4 OOOCF CLRL = = (SP) + 1923 ; 
00728274 ar fe sa0or ni PUSHL #7304500 : : 
0000009¢ =F 35 Dt 90009 7$: CMPL ACCESS, #156 + 1928 : 
2c AB 01 €7 O00E2 BBC #1, 44(CURRENT_VCB), 8$ + 1931 : 
07 a9 02 £0 000E BBS #2, 7(MVL_ENTRY), 9$ : : 
5A DD QOOEC 8$ PUSHL R10 > 1934 : 
7E 10 AA 9A OOOEE MOVZBL CVT_DEVNAM_LENGTH, -(SP) + 1935 ; 
7E D4 OOOF CLRL © = (SP) + 1934 3 
007280E4 ar DD o00F4 BUSHL #7304100 : : 
55 01 00 O00FC 9 MOVL #1, ACCESS : 1938 : 
000022A4 = &F 38 Di OO0FF 10$ CMPL ACCESS, #8868 + 1941 : 
SA DD 00198 PUSHL R10 ’ + 1944 ; 
7E 10 AA 9A OO10A MOVZBL CVT_DEVNAM_LENGTH, -(SP) + 1945 ; 
7E 04 O10E CLRL (SP) + 1944 ; 
00728264 BF DD 90110 PUSHL #7304484 ; : 
000022AC BF 5 Dt Sante 11$: CAPE ACCESS, #8876 : 1949 ; 
“eC e ° 
5A DD 00121 PUSHL R10 : 195 ; 
7E 10 AA 9A 1 3 MOVZBL CVT_DEVNAM_LENGTH, -(SP) : 195 : 
7E D4 001 CLRL 59h) + 1952 : 
0072826c =F DD 129 PUSHL #7504492 ; : 
3 10F 128: RB 163 ; ; 
4 pd 00131 13$: | PUSHL SCRATCH > 1962 ; 
66 BD 1 > PUSHL (ORB) : F 
F4 AA OF 001 PUSHAB TAPE_PROT > 1961 : 
FO «= AA OOF 00138 PUSHAB TAPE~OWNER : ; 
00006 cf 4 FB 1 CALLS #4, TAPE_OWN PROT : 3 
2 6 DO 0014 MOVL RO. TAPE-OWNER_STS : : 
D4 0014 CLRL : 1970 : 
66 FO. AA D1 14 CMPL §_ TAPE_OWNER, (ORB) : : 
08 : 149 BNEG 14$ ; : 
D6 00148 INCL p : ; 
Q1 1 EF 140 148: EXTZy #i, #1, 19(MVL), R1 : : 
0 1 ¢€9 0015 BISL3 R1, RO. -(SP) : : 
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4 VERIDE 

#4, ONS S$ CMKRNL 

ACCESS, 17 

TAPE OWNER STS, 18$ 

43, 5 (CURRENT. VCB) 
7OMVL RENTRY) « 18$ 


CVT _DEVNAM_LENGTH, =(SP) 
#7504412 


15$ 


PE_PROT 
#10, STARID, 24(SCRATCH) 
#1, VMS_TAPE 
20$ 


—2-B I 
Qa SVVaSan 


RO 
vMs_T 21$ 
VeCRAT CHS , 4843861846 


0 
TAPE OWNER 
Actes pROCE Ss -VOL2_LABEL 


APE P of 
10. REUIND. AND_WAIT 


RY 

cv DEVNAM_LENGTH, -(SP) 
#7504164 

#80, -(SP) 

SCRATCH 

#3. R READ gptock 


Hie apt" #32, ANSI_A_GOOD, #6, 


FLAGS, 4$ 
i: fh 
Cue ar _VCB), 28$ 
if 2, #33235" 
LAGS, 26$ 
PEC, 28S 
URRENT VCB), 27$ 
L_ENTRY), 288 
ENTRY), TEMP_ 


AX-11 Bliss-32 V4.0-<74 
MTAACP.SRC JMOUVOL .B32; 
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; Routine Size: 676 bytes, Routine Base: SCODE$S + 0588 
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YO4 950 14- eats ri 95: 6:44 ERTAACP SRC IMOUVOL -B32: . a v04 

9 p ¢ PUSHL MVL_ENTRY : 2057 : 

00006 § BSBW = PRIRT_NOT_LABEL : : 

SE 4 f ADDL2 r ; . 

5 00006 CF é C1 288: ADDL3 # g. CURRENT_UCB, DEVCHAR : ; 

50 1 19 EF C EXTZV #25, #1, DEVTHAR, R : : 

6E 0 20 FO 00¢1 INSV = RO, - #0, #1, WRITE_RING ; : 

— DD 46 PUSHL SP : : 

66 bb 4 PUSHL (ORB) : 3 

FO AA OF 4A PUSHAB TAPE_OWNER : : 

F4 «AA OOF 4D PUSHAB TAPE-PROT : : 

94 DD 9 9 PUSHL #4 : : 

— DD PUSHL SP : : 

00006 CF 9F 4 PUSHAB CHECK_PROT : : 

600000006 9 4 8 28 CALLS #7, @ASYSSCMKRNL ; : 

16 13 iy 9} 0 bebe BBS #1, 19(MVL), 308 : ‘ 

7E 10 AA aA 09 69 MOVZBL CVT_DEVNAM_LENGTH, (SP) : : 

007280F4  8F bp 0 of PUSHL #7504116 F ; 

00006 30 00275 298: BSBW PRINT_OPR_MSG : : 

SE 10 CO 00278 ADDL2 #16, SP : : 

24 11 99 7B BRB 3 2074 3 

52 01 19 6E FO 0027D 30S: INSV WRITE_RING, #25, #1, DEVCHAR : 2079 : 

16 06 AC 01 €0 99 82 BBS #i, FCAGS, : 2080 ; 

11 06 =A 02 £0 0028 BBS #2, FLAGS, 32$ : : 

01 DD 0028C 31$: PUSHL #1 : 2081 : 

01 DD 0028E PUSHL #1 : ; 

5E DD 99 30 PUSHL SP : ; 

0000v CF 9F 0029 PUSHAB SET_MVL_OVERIDE : ; 

000000006 9F 04 FB 09 96 CALLS #4, aM#SYSSCMKRNL : ; 

50 01 b 09 % 328: MOVL #1, RO ; 2083 : 

50 D4 002A1 338: CLRL = RO 3 2084 : 

04 002A3 RET : : 


: 
2067 
2068 
| 
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ROUTINE SET_MVL_OVERIDE ( VALUE ) : NOVALUE MVL_UCB = 


oe 


i 
FUNCTIONAL DESCRIPTION: 
this routine sets the MVL ‘'can override’ bit for this reel 


CALLING SEQUENCE: 
SET _LMVL _OVERIDE (ARG1) KERNEL CALL!!!! 


INPUT PARAMETERS: 
ARG1 = the value to which the bit should be set ( passed by value ) 


IMPLICIT INPUTS: 
NONE 
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00000 
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OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


Sooooooooeo 
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SIDE EFFECTS: 
NONE 


USER ERRORS: 
NONE 


BEGIN 


EXTERNAL ~ 3 adhe 
MVL_ENTRY = 9 : REF BBLOCK; 


MVL_ENTRY C MVLSV_OVERIDE ] = .VALUE; 
END; ! end of Routine SET_MVL_OVERIDE 
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0000 00000 SET_MVL_OVERIDE: 

-WORD Save noching : 208 
07 Ag 01 02 04 ac £0 00008 INSV VALUE, #2, #1, 7(MVL_ENTRY) : $s 
04 00009 RET : 21 


Routine Size: 10 bytes, Routine Base: S$CODES + 082F 
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1628 2129 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
SCODES 21 NOVEC ,NOWRT, 
SLOCKEDD1$ % NOVEC. WRT, 
Library Statistics 
File Total Lo 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 


: pizes 


Time 
phy 
Lines/CPU 
Lexenes/¢ 


mee 


Symbo 
Loaded 


84 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:MOUVOL/OBJ=0BJ$:MOUVOL MSRC$:MOUVOL/UPDATE=(ENH$:MOUVOL ) 


2071 O02 + 67 data bytes 
Tine: 


ist Sa 


Used: 261 pages 
ion Complete 


H 13 
16-Sep-19 
14-Sep-19 


Attributes 


EXE ,NOSHR, 
;NOEXE ,NOSHR, 


Percent 
0 


ae 
-—-o 


LCL, REL, 
LCL, REL, 


Pages 
Mapped 


1000 


AX-11 Bliss-32 V4.0-742 
MTAACP.SRCJMOUVOL .B32; 1 


Foe ee Le -AL Lani Se 
CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:01.8 


Page 50 
. (14) 


PMENT CORPORATION 
_AND PROPRIETARY 


0259 vax/ vs v4-0 C 


